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

Reply via email to