plugins*: Follow changes in ghc
authorIan Lynagh <ian@well-typed.com>
Fri, 14 Dec 2012 20:05:48 +0000 (20:05 +0000)
committerIan Lynagh <ian@well-typed.com>
Fri, 14 Dec 2012 20:05:48 +0000 (20:05 +0000)
testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs

index be62a52..e8c2435 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 (fastStringToFastBytes (mkFastString replacement)))
+                        return $ Lit (MachStr (fastStringToByteString (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)