From ebe2bb5d59164447139d12ef69ed959512b0b70b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Janis=20Voigtl=C3=A4nder?= Date: Thu, 25 Feb 2016 09:07:26 +0100 Subject: [PATCH] set locale appropriately --- src/CommandLineRouter.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/CommandLineRouter.hs b/src/CommandLineRouter.hs index a7d06a1aa..ab138b0ad 100644 --- a/src/CommandLineRouter.hs +++ b/src/CommandLineRouter.hs @@ -5,13 +5,16 @@ import qualified System.Environment as Env import System.Exit (exitWith) import System.IO (hPutStrLn, stderr, stdin, stdout) import qualified System.Process as Proc +import GHC.IO.Encoding (setLocaleEncoding, utf8) import qualified Elm.Compiler.Version as Compiler import qualified Elm.Package as Pkg main :: IO () main = - do allArgs <- Env.getArgs + do setLocaleEncoding utf8 + + allArgs <- Env.getArgs case allArgs of [] -> putStrLn usageMessage