X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FSrcLoc.lhs;h=e12b0db105affb13aa90471cc787d83280277eb3;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=f27a6f06dc0fa16affa067fa6b5d177af5ab0047;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/SrcLoc.lhs b/ghc/compiler/basicTypes/SrcLoc.lhs
index f27a6f0..e12b0db 100644
--- a/ghc/compiler/basicTypes/SrcLoc.lhs
+++ b/ghc/compiler/basicTypes/SrcLoc.lhs
@@ -15,12 +15,14 @@ module SrcLoc (
 
 	mkSrcLoc, mkSrcLoc2,	-- the usual
 	mkUnknownSrcLoc,	-- "I'm sorry, I haven't a clue"
+	mkIfaceSrcLoc,		-- Unknown place in an interface
+				-- (this one can die eventually ToDo)
 	mkBuiltinSrcLoc,	-- something wired into the compiler
 	mkGeneratedSrcLoc,	-- code generated within the compiler
 	unpackSrcLoc
     ) where
 
-import Ubiq
+IMP_Ubiq()
 
 import PprStyle		( PprStyle(..) )
 import Pretty
@@ -58,6 +60,7 @@ Things to make 'em:
 mkSrcLoc	    = SrcLoc
 mkSrcLoc2 x IBOX(y) = SrcLoc2 x y
 mkUnknownSrcLoc	    = SrcLoc SLIT("<unknown>") SLIT("<unknown>")
+mkIfaceSrcLoc	    = SrcLoc SLIT("<an interface file>") SLIT("<unknown>")
 mkBuiltinSrcLoc	    = SrcLoc SLIT("<built-into-the-compiler>") SLIT("<none>")
 mkGeneratedSrcLoc   = SrcLoc SLIT("<compiler-generated-code>") SLIT("<none>")
 
@@ -74,7 +77,7 @@ unpackSrcLoc (SrcLoc2 src_file src_line) = (src_file, _PK_ (show IBOX(src_line))
 \begin{code}
 instance Outputable SrcLoc where
     ppr PprForUser (SrcLoc src_file src_line)
-      = ppBesides [ ppChar '"', ppPStr src_file, ppPStr SLIT("\", line "), ppPStr src_line ]
+      = ppBesides [ ppChar '"', ppPStr src_file, ppStr "\", line ", ppPStr src_line ]
 
     ppr sty (SrcLoc src_file src_line)
       = ppBesides [ppPStr SLIT("{-# LINE "), ppPStr src_line, ppSP,