[show text of exception when dumping core.
John Meacham <john@repetae.net>**20100826091509
 Ignore-this: 859d57d2a6184698e97f0083482b3039
] hunk ./src/E/Lint.hs 51
-        putErrLn $ "\n>>> Before " ++ name
-        dumpCore ("lint-before-" ++ name) prog
---        printProgram prog
-        putErrLn $ "\n>>>"
+        dumpCoreExtra ("lint-before-" ++ name) prog (show (e::SomeException'))
hunk ./src/E/Lint.hs 132
-dumpCore pname prog = do
+dumpCore pname prog = dumpCoreExtra pname prog ""
+
+dumpCoreExtra pname prog extra = do
hunk ./src/E/Lint.hs 141
+    IO.hPutStrLn h extra