diff options
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 |