X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FName.lhs;h=aa253cf87843e07daff5ed8d8634b7f43cc340d6;hb=7df9b88b9e0565f438f16d8005526ffda80a1dbe;hp=7dc6fe92093884612b39aa6fb567de4fe1236ba3;hpb=6c4e3c1ce1ee67c6355a811a6d4698efb343e361;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Name.lhs b/compiler/basicTypes/Name.lhs
index 7dc6fe9..aa253cf 100644
--- a/compiler/basicTypes/Name.lhs
+++ b/compiler/basicTypes/Name.lhs
@@ -35,8 +35,6 @@ module Name (
 	getSrcLoc, getSrcSpan, getOccString
     ) where
 
-#include "HsVersions.h"
-
 import {-# SOURCE #-} TypeRep( TyThing )
 
 import OccName
@@ -361,7 +359,7 @@ pprExternal sty uniq mod occ is_wired is_builtin
 	-- ToDo: maybe we could print all wired-in things unqualified
 	-- 	 in code style, to reduce symbol table bloat?
  | debugStyle sty       = ppr mod <> dot <> ppr_occ_name occ
-		<> braces (hsep [if is_wired then ptext SLIT("(w)") else empty,
+		<> braces (hsep [if is_wired then ptext (sLit "(w)") else empty,
 				 pprNameSpaceBrief (occNameSpace occ), 
 		 		 pprUnique uniq])
   | BuiltInSyntax <- is_builtin  = ppr_occ_name occ
@@ -411,8 +409,8 @@ pprNameLoc :: Name -> SDoc
 pprNameLoc name
   | isGoodSrcSpan loc = pprDefnLoc loc
   | isInternalName name || isSystemName name 
-                      = ptext SLIT("<no location info>")
-  | otherwise         = ptext SLIT("Defined in ") <> ppr (nameModule name)
+                      = ptext (sLit "<no location info>")
+  | otherwise         = ptext (sLit "Defined in ") <> ppr (nameModule name)
   where loc = nameSrcSpan name
 \end{code}