showPos :: ParsecPos.SourcePos -> String
showPos pos = concat [path, ":", show line, ":", show col]
  where
    col = ParsecPos.sourceColumn pos
    line = ParsecPos.sourceLine pos
    path = ParsecPos.sourceName pos
showPos :: ParsecPos.SourcePos -> String
showPos pos = concat [path, ":", show line, ":", show col]
  where
    col = ParsecPos.sourceColumn pos
    line = ParsecPos.sourceLine pos
    path = ParsecPos.sourceName pos
showPos pos = concat [path, ":", show line, ":", show col]
  where
    col = ParsecPos.sourceColumn pos
    line = ParsecPos.sourceLine pos
    path = ParsecPos.sourceName pos