Changeset 3879 for src/Main.hs

Timestamp:

05/25/05 15:34:44 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5385

Message:

Main.hs -- die() should output correct utf-8.

Files:

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

src/Main.hs

@@ -265 +265 @@
     where
     end err@(VError _ _)  = do
-        hPutStrLn stderr (pretty err)
+        hPutStrLn stderr $ encodeUTF8 $ pretty err
         exitFailure
     end (VControl (ControlExit exit)) = exitWith exit