From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 17:54:56 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in ByteCodeGen
X-Git-Tag: 2008-05-28~203
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=59e99f059c3b3f235fa12f19f15544ebf022f35b;hp=1acfe39c266d304a8168338a57f821c7f11a51fe

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

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index 007f3eb..b4d026a 100644
--- a/compiler/ghci/ByteCodeGen.lhs
+++ b/compiler/ghci/ByteCodeGen.lhs
@@ -110,7 +110,7 @@ coreExprToBCOs dflags expr
 
       -- create a totally bogus name for the top-level BCO; this
       -- should be harmless, since it's never used for anything
-      let invented_name  = mkSystemVarName (mkPseudoUniqueE 0) FSLIT("ExprTopLevel")
+      let invented_name  = mkSystemVarName (mkPseudoUniqueE 0) (fsLit "ExprTopLevel")
           invented_id    = Id.mkLocalId invented_name (panic "invented_id's type")
 	  
       -- the uniques are needed to generate fresh variables when we introduce new
@@ -1536,5 +1536,5 @@ newId ty = do
     uniq <- newUnique
     return $ mkSysLocal tickFS uniq ty
 
-tickFS = FSLIT("ticked")
+tickFS = fsLit "ticked"
 \end{code}