diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-12-14 20:05:48 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-12-14 20:05:48 +0000 |
| commit | 9924685191447eec88bef6cf9265dc54ed0aa855 (patch) | |
| tree | cb778a964cf32b38ebf51fa3f93206ad19ea845c /testsuite/tests/plugins | |
| parent | cd01e48fbc548ff8d81ab547108bfdde8a113cd7 (diff) | |
| download | haskell-9924685191447eec88bef6cf9265dc54ed0aa855.tar.gz | |
plugins*: Follow changes in ghc
Diffstat (limited to 'testsuite/tests/plugins')
| -rw-r--r-- | testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs b/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs index be62a52601..e8c2435849 100644 --- a/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs +++ b/testsuite/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) |