[when a type error occurs when dumping core, show the error after dumping the text of the core.
John Meacham <john@repetae.net>**20110202072648
 Ignore-this: d1db7ce5f0164c44c125f2c4f827ded5
] hunk ./src/E/Program.hs 141
-    when (not tmatch || dump FD.EVerbose) $
+    when (ty /= Unknown && (not tmatch || dump FD.EVerbose)) $
hunk ./src/E/Program.hs 144
+    when (ty == Unknown) $
+        hPutStrLn fh (render $ hang 4 (pprint tvr <+> text "TypeError:" </> pty))