srcLocFile, -- return the file name part
srcLocLine, -- return the line part
srcLocCol, -- return the column part
-
+ pprDefnLoc,
SrcSpan, -- Abstract
noSrcSpan,
col2 = srcSpanEndCol end
file = srcSpanFile start
+pprDefnLoc :: SrcLoc -> SDoc
+-- "defined at ..." or "imported from ..."
+pprDefnLoc loc
+ | isGoodSrcLoc loc = ptext SLIT("Defined at") <+> ppr loc
+ | otherwise = ppr loc
+
instance Outputable SrcSpan where
ppr span
= getPprStyle $ \ sty ->