X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FSrcLoc.lhs;h=650de416a40f5bcd5c3e66f2784f9192b98c2cd7;hb=2f51f1402e6869c0f049ffbe7b019bf6ab80558f;hp=423b4b32e0482a5b2c3f773a6d2adba4567452c0;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/SrcLoc.lhs b/ghc/compiler/basicTypes/SrcLoc.lhs
index 423b4b3..650de41 100644
--- a/ghc/compiler/basicTypes/SrcLoc.lhs
+++ b/ghc/compiler/basicTypes/SrcLoc.lhs
@@ -15,14 +15,17 @@ 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 Outputable
+import Ubiq
+
+import PprStyle		( PprStyle(..) )
 import Pretty
-import Util
 \end{code}
 
 %************************************************************************
@@ -57,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>")