X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCorePrep.lhs;h=e90a12a505e830149a68cf19e04c7e8bc1535a8a;hb=cb579c2b44b9e7aa6fdbda2b70a1361035ff2ef5;hp=68fd5301fb6fa57d7eb93548e9dd981c00184f50;hpb=3dcb2a668e541eb0b04b5d22c2b86b2700766d46;p=ghc-hetmet.git

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}