Follow changes in FastString
authorIan Lynagh <igloo@earth.li>
Sun, 15 Jul 2012 01:01:15 +0000 (02:01 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 15 Jul 2012 01:01:15 +0000 (02:01 +0100)
testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs
testsuite/tests/simplCore/should_compile/T4930.stderr
testsuite/tests/simplCore/should_compile/spec-inline.stderr

index 118ccdb..be62a52 100644 (file)
@@ -70,7 +70,7 @@ changeExpr anns mb_replacement e = let go = changeExpr anns mb_replacement in ca
                 Nothing -> return e
                 Just replacement -> do
                         putMsgS "Performing Replacement"
-                        return $ Lit (MachStr (mkFastString replacement))
+                        return $ Lit (MachStr (fastStringToFastBytes (mkFastString replacement)))
         App e1 e2 -> liftM2 App (go e1) (go e2)
         Lam b e -> liftM (Lam b) (go e)
         Let bind e -> liftM2 Let (changeBind anns mb_replacement bind) (go e)
index 41e3996..61c2f5a 100644 (file)
@@ -4,7 +4,7 @@ Result size of Tidy Core = {terms: 20, types: 10, coercions: 0}
 
 lvl :: [GHC.Types.Char]
 [GblId]
-lvl = GHC.CString.unpackCString# "Too small"
+lvl = GHC.CString.unpackCString# "Too small"#
 
 T4930.foo1 :: GHC.Types.Int
 [GblId, Str=DmdType b]
index f69fffd..e639507 100644 (file)
@@ -6,7 +6,7 @@ Roman.foo3 :: GHC.Types.Int
 [GblId, Str=DmdType b]
 Roman.foo3 =
   Control.Exception.Base.patError
-    @ GHC.Types.Int "spec-inline.hs:(19,5)-(29,25)|function go"
+    @ GHC.Types.Int "spec-inline.hs:(19,5)-(29,25)|function go"#
 
 Rec {
 Roman.foo_$s$wgo [Occ=LoopBreaker]