Commit 8eb5a108 authored by Simon Marlow's avatar Simon Marlow
Browse files

use "Defined in" rather than "Imported from" when printing ImportedSrcLoc

parent 49e3b654
...@@ -157,7 +157,7 @@ instance Outputable SrcLoc where ...@@ -157,7 +157,7 @@ instance Outputable SrcLoc where
hcat [text "{-# LINE ", int src_line, space, hcat [text "{-# LINE ", int src_line, space,
char '\"', ftext src_path, text " #-}"] char '\"', ftext src_path, text " #-}"]
ppr (ImportedLoc mod) = ptext SLIT("Imported from") <+> text mod ppr (ImportedLoc mod) = ptext SLIT("Defined in") <+> text mod
ppr (UnhelpfulLoc s) = ftext s ppr (UnhelpfulLoc s) = ftext s
\end{code} \end{code}
...@@ -354,7 +354,7 @@ pprUserSpan (SrcSpanPoint src_path line col) ...@@ -354,7 +354,7 @@ pprUserSpan (SrcSpanPoint src_path line col)
char ':', int col char ':', int col
] ]
pprUserSpan (ImportedSpan mod) = ptext SLIT("Imported from") <+> quotes (text mod) pprUserSpan (ImportedSpan mod) = ptext SLIT("Defined in") <+> text mod
pprUserSpan (UnhelpfulSpan s) = ftext s pprUserSpan (UnhelpfulSpan s) = ftext s
\end{code} \end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment