metaLine :: Meta -> String
metaLine m = qName m <+> "from file" <+> (modPath . modDesc $ m)
  <+> "at line" <+> show (linenum m) ++ "\n"
metaLine :: Meta -> String
metaLine m = qName m <+> "from file" <+> (modPath . modDesc $ m)
  <+> "at line" <+> show (linenum m) ++ "\n"
metaLine m = qName m <+> "from file" <+> (modPath . modDesc $ m)
  <+> "at line" <+> show (linenum m) ++ "\n"