X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FLiteral.lhs;h=a3e307bbc19e47f31928c2a321165a7d6d0a3c64;hb=08652e67c4d5d9a40687f93c286021a867c1bca0;hp=774ab042ce72df27c72a00b4e5e6fdf69d163bc2;hpb=14ec5696ff3bafc1ec0f2277f0b2e4ce6c59e462;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Literal.lhs b/compiler/basicTypes/Literal.lhs
index 774ab04..a3e307b 100644
--- a/compiler/basicTypes/Literal.lhs
+++ b/compiler/basicTypes/Literal.lhs
@@ -33,8 +33,6 @@ module Literal
 	, nullAddrLit, float2DoubleLit, double2FloatLit
 	) where
 
-#include "HsVersions.h"
-
 import TysPrim
 import Type
 import Outputable
@@ -366,13 +364,13 @@ pprLit :: Literal -> SDoc
 pprLit (MachChar ch)  	= pprHsChar ch
 pprLit (MachStr s)    	= pprHsString s
 pprLit (MachInt i)    	= pprIntVal i
-pprLit (MachInt64 i)  	= ptext SLIT("__int64") <+> integer i
-pprLit (MachWord w)   	= ptext SLIT("__word") <+> integer w
-pprLit (MachWord64 w) 	= ptext SLIT("__word64") <+> integer w
-pprLit (MachFloat f)  	= ptext SLIT("__float") <+> rational f
+pprLit (MachInt64 i)  	= ptext (sLit "__int64") <+> integer i
+pprLit (MachWord w)   	= ptext (sLit "__word") <+> integer w
+pprLit (MachWord64 w) 	= ptext (sLit "__word64") <+> integer w
+pprLit (MachFloat f)  	= ptext (sLit "__float") <+> rational f
 pprLit (MachDouble d) 	= rational d
-pprLit (MachNullAddr) 	= ptext SLIT("__NULL")
-pprLit (MachLabel l mb) = ptext SLIT("__label") <+> 
+pprLit (MachNullAddr) 	= ptext (sLit "__NULL")
+pprLit (MachLabel l mb) = ptext (sLit "__label") <+> 
 			     case mb of
 			       Nothing -> pprHsString l
 			       Just x  -> doubleQuotes (text (unpackFS l ++ '@':show x))