From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 12:33:22 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in Literal
X-Git-Tag: 2008-05-28~324
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=953255b0c5570904b8acb46b29a07c066a07efaf

(F)SLIT -> (f)sLit in Literal
---

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))