prettySourcePos :: SourcePos -> Doc
prettySourcePos sp =
  text "At " <> maybe empty (text . unpack) (sp ^. spName)
  <> text " line " <> text (show $ sp ^. spLine)
  <> text " column " <> text (show $ sp ^. spColumn)
  <> text ":"
prettySourcePos :: SourcePos -> Doc
prettySourcePos sp =
  text "At " <> maybe empty (text . unpack) (sp ^. spName)
  <> text " line " <> text (show $ sp ^. spLine)
  <> text " column " <> text (show $ sp ^. spColumn)
  <> text ":"
prettySourcePos sp =
  text "At " <> maybe empty (text . unpack) (sp ^. spName)
  <> text " line " <> text (show $ sp ^. spLine)
  <> text " column " <> text (show $ sp ^. spColumn)
  <> text ":"