Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/3f7212e5f8dd0b3c5b2fcfd71384766ec765a67d >--------------------------------------------------------------- commit 3f7212e5f8dd0b3c5b2fcfd71384766ec765a67d Author: Ian Lynagh <[email protected]> Date: Wed Jun 13 12:55:26 2012 +0100 Fix plugins01: Follow changes to GHC >--------------------------------------------------------------- tests/plugins/simple-plugin/Simple/Plugin.hs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/tests/plugins/simple-plugin/Simple/Plugin.hs b/tests/plugins/simple-plugin/Simple/Plugin.hs index 5de6170..118ccdb 100644 --- a/tests/plugins/simple-plugin/Simple/Plugin.hs +++ b/tests/plugins/simple-plugin/Simple/Plugin.hs @@ -61,7 +61,8 @@ changeBindPr anns mb_replacement b e = do [ReplaceWith replace_string] -> do e' <- changeExpr anns (Just replace_string) e return (b, e') - _ -> error $ "Too many change_anns on one binder:" ++ showSDoc (ppr b) + _ -> do dflags <- getDynFlags + error ("Too many change_anns on one binder:" ++ showPpr dflags b) changeExpr :: UniqFM [ReplaceWith] -> Maybe String -> CoreExpr -> CoreM CoreExpr changeExpr anns mb_replacement e = let go = changeExpr anns mb_replacement in case e of _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
