From 8d41d9e18e786728741069024c1000f78486a14c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 13 Jun 2012 12:55:26 +0100 Subject: Fix plugins01: Follow changes to GHC --- testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'testsuite/tests') diff --git a/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs b/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs index 5de617036c..118ccdbd4c 100644 --- a/testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs +++ b/testsuite/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 -- cgit v1.2.1