From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 11 Aug 2006 10:11:59 +0000 (+0000)
Subject: use "Defined in" rather than "Imported from" when printing ImportedSrcLoc
X-Git-Tag: Before_FC_branch_merge~226
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8eb5a108434cbe0af52650444a2fac9d55d2a491

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

diff --git a/compiler/basicTypes/SrcLoc.lhs b/compiler/basicTypes/SrcLoc.lhs
index 8ced456..2dc6c48 100644
--- a/compiler/basicTypes/SrcLoc.lhs
+++ b/compiler/basicTypes/SrcLoc.lhs
@@ -157,7 +157,7 @@ instance Outputable SrcLoc where
 	   hcat [text "{-# LINE ", int src_line, space,
 		 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
 \end{code}
 
@@ -354,7 +354,7 @@ pprUserSpan (SrcSpanPoint src_path line 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
 \end{code}