From 59e99f059c3b3f235fa12f19f15544ebf022f35b Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 17:54:56 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in ByteCodeGen --- compiler/ghci/ByteCodeGen.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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} -- 1.7.10.4