@@ -20,6 +20,7 @@ import qualified System.Environment as Env
20import qualified System.Exit as Exit
20import qualified System.Exit as Exit
21import qualified System.FilePath as FP
21import qualified System.FilePath as FP
22import System.FilePath ((</>))
22import System.FilePath ((</>))
23+import GHC.IO.Encoding (setLocaleEncoding, utf8)
23import System.IO (hPutStr, hPutStrLn, stdout)
24import System.IO (hPutStr, hPutStrLn, stdout)
24import qualified Text.PrettyPrint.ANSI.Leijen as P
25import qualified Text.PrettyPrint.ANSI.Leijen as P
25import qualified Text.Read as Read
26import qualified Text.Read as Read
@@ -36,7 +37,8 @@ import qualified Terminal.Args.Error as Error
37simple :: String -> P.Doc -> Args args -> Flags flags -> (args -> flags -> IO ()) -> IO ()
38simple :: String -> P.Doc -> Args args -> Flags flags -> (args -> flags -> IO ()) -> IO ()
38simple details example args_ flags_ callback =
39simple details example args_ flags_ callback =
40+ do setLocaleEncoding utf8
39− do argStrings <- Env.getArgs
41+ argStrings <- Env.getArgs
40 case argStrings of
42 case argStrings of
41 ["--version"] ->
43 ["--version"] ->
42 do hPutStrLn stdout (V.toChars V.compiler)
44 do hPutStrLn stdout (V.toChars V.compiler)
@@ -57,7 +59,8 @@ simple details example args_ flags_ callback =
58complex :: P.Doc -> P.Doc -> [Interface] -> IO ()
60complex :: P.Doc -> P.Doc -> [Interface] -> IO ()
59complex intro outro interfaces =
61complex intro outro interfaces =
62+ do setLocaleEncoding utf8
60− do argStrings <- Env.getArgs
63+ argStrings <- Env.getArgs
61 case argStrings of
64 case argStrings of
63 Error.exitWithOverview intro outro interfaces
66 Error.exitWithOverview intro outro interfaces