diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 12:55:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 12:55:26 +0100 |
| commit | 8d41d9e18e786728741069024c1000f78486a14c (patch) | |
| tree | 94b40d17617d63c7d2516f47cabc373c12fb5344 /testsuite/tests/plugins | |
| parent | ba5c1e9d7ee5bc6079b86fd39ef834081e77345d (diff) | |
| download | haskell-8d41d9e18e786728741069024c1000f78486a14c.tar.gz | |
Fix plugins01: Follow changes to GHC
Diffstat (limited to 'testsuite/tests/plugins')
| -rw-r--r-- | testsuite/tests/plugins/simple-plugin/Simple/Plugin.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |