From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 14:36:37 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in CorePrep
X-Git-Tag: 2008-05-28~277
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4cc5410ac72045b6f5cd7574f7f68a044d7db6ad;p=ghc-hetmet.git

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

diff --git a/compiler/coreSyn/CorePrep.lhs b/compiler/coreSyn/CorePrep.lhs
index 68fd530..e90a12a 100644
--- a/compiler/coreSyn/CorePrep.lhs
+++ b/compiler/coreSyn/CorePrep.lhs
@@ -846,5 +846,5 @@ newVar :: Type -> UniqSM Id
 newVar ty
  = seqType ty `seq` do
      uniq <- getUniqueM
-     return (mkSysLocal FSLIT("sat") uniq ty)
+     return (mkSysLocal (fsLit "sat") uniq ty)
 \end{code}