Fixed unicode output
This commit is contained in:
parent
f7dd44d291
commit
6a73f40ec1
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user