Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e6686934756c0709bb733d99598f811e8036b726 >--------------------------------------------------------------- commit e6686934756c0709bb733d99598f811e8036b726 Author: Ian Lynagh <i...@well-typed.com> Date: Fri Dec 14 20:05:48 2012 +0000 plugins*: Follow changes in ghc >--------------------------------------------------------------- tests/plugins/simple-plugin/Simple/Plugin.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/tests/plugins/simple-plugin/Simple/Plugin.hs b/tests/plugins/simple-plugin/Simple/Plugin.hs index be62a52..e8c2435 100644 --- a/tests/plugins/simple-plugin/Simple/Plugin.hs +++ b/tests/plugins/simple-plugin/Simple/Plugin.hs @@ -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) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
