From 6a73f40ec1cc0cac9cb82cc5834cd346ae071996 Mon Sep 17 00:00:00 2001
From: mvoidex <voidex@live.com>
Date: Fri, 29 Mar 2013 16:58:55 +0400
Subject: [PATCH] Fixed unicode output

---
 GHCMod.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/GHCMod.hs b/GHCMod.hs
index 531da78..0f5810f 100644
--- a/GHCMod.hs
+++ b/GHCMod.hs
@@ -21,7 +21,7 @@ import Prelude
 import System.Console.GetOpt
 import System.Directory
 import System.Environment (getArgs)
-import System.IO (hPutStr, hPutStrLn, stderr)
+import System.IO (hPutStr, hPutStrLn, stdout, stderr, hSetEncoding, utf8)
 import Types
 
 ----------------------------------------------------------------
@@ -87,6 +87,7 @@ instance Exception GHCModError
 
 main :: IO ()
 main = flip catches handlers $ do
+    hSetEncoding stdout utf8
     args <- getArgs
     let (opt',cmdArg) = parseArgs argspec args
     (strVer,ver) <- getGHCVersion