hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed unicode output

Browse Source
This commit is contained in:
mvoidex 2013-03-29 16:58:55 +04:00 committed by Kazu Yamamoto
parent f7dd44d291
commit 6a73f40ec1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
GHCMod.hs
View File

@ -21,7 +21,7 @@ import Prelude
import System.Console.GetOpt import System.Console.GetOpt
import System.Directory import System.Directory
import System.Environment (getArgs) import System.Environment (getArgs)
import System.IO (hPutStr, hPutStrLn, stderr) import System.IO (hPutStr, hPutStrLn, stdout, stderr, hSetEncoding, utf8)
import Types import Types
---------------------------------------------------------------- ----------------------------------------------------------------
@ -87,6 +87,7 @@ instance Exception GHCModError
main :: IO () main :: IO ()
main = flip catches handlers $ do main = flip catches handlers $ do
hSetEncoding stdout utf8
args <- getArgs args <- getArgs
let (opt',cmdArg) = parseArgs argspec args let (opt',cmdArg) = parseArgs argspec args
(strVer,ver) <- getGHCVersion (strVer,ver) <- getGHCVersion