Changeset 2358 for src/Main.hs

Timestamp:

04/26/05 15:14:11 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3900

Message:

* much better error messages overall.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -201 +201 @@
     runProgramWith (\e -> e{ envDebug = Nothing }) end
     where
-    end (VError str exp)  = do
-        hPutStrLn stderr str
-        hPutStrLn stderr (show exp)
+    end err@(VError _ _)  = do
+        hPutStrLn stderr (pretty err)
         exitFailure
     end (VControl (ControlExit exit)) = exitWith exit