@@ -5,13 +5,16 @@ import qualified System.Environment as Env
5import System.Exit (exitWith)
5import System.Exit (exitWith)
6import System.IO (hPutStrLn, stderr, stdin, stdout)
6import System.IO (hPutStrLn, stderr, stdin, stdout)
7import qualified System.Process as Proc
7import qualified System.Process as Proc
8+import GHC.IO.Encoding (setLocaleEncoding, utf8)
9import qualified Elm.Compiler.Version as Compiler
10import qualified Elm.Compiler.Version as Compiler
10import qualified Elm.Package as Pkg
11import qualified Elm.Package as Pkg
12main :: IO ()
13main :: IO ()
15+ do setLocaleEncoding utf8
14− do allArgs <- Env.getArgs
17+ allArgs <- Env.getArgs
15 case allArgs of
18 case allArgs of
17 putStrLn usageMessage
20 putStrLn usageMessage