@@ -20,6 +20,7 @@ import qualified System.Environment as Env
2020import qualified System.Exit as Exit
2121import qualified System.FilePath as FP
2222import System.FilePath ((</>))
23+import GHC.IO.Encoding (setLocaleEncoding, utf8)
2324import System.IO (hPutStr, hPutStrLn, stdout)
2425import qualified Text.PrettyPrint.ANSI.Leijen as P
2526import qualified Text.Read as Read
@@ -36,7 +37,8 @@ import qualified Terminal.Args.Error as Error
3637
3738simple :: String -> P.Doc -> Args args -> Flags flags -> (args -> flags -> IO ()) -> IO ()
3839simple details example args_ flags_ callback =
39− do argStrings <- Env.getArgs
40+ do setLocaleEncoding utf8
41+ argStrings <- Env.getArgs
4042 case argStrings of
4143 ["--version"] ->
4244 do hPutStrLn stdout (V.toChars V.compiler)
@@ -57,7 +59,8 @@ simple details example args_ flags_ callback =
5759
5860complex :: P.Doc -> P.Doc -> [Interface] -> IO ()
5961complex intro outro interfaces =
60− do argStrings <- Env.getArgs
62+ do setLocaleEncoding utf8
63+ argStrings <- Env.getArgs
6164 case argStrings of
6265 [] ->
6366 Error.exitWithOverview intro outro interfaces