do the cyrilic trick for Windows in gf3 also

1 files changed, 17 insertions, 7 deletions

diff --git a/src-3.0/GF.hs b/src-3.0/GF.hs
index b3c971096..5b1776987 100644
--- a/src-3.0/GF.hs
+++ b/src-3.0/GF.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS -cpp #-}
 module Main where
 
 import GFC
@@ -11,15 +12,24 @@ import Data.Version
 import System.Environment (getArgs)
 import System.Exit
 import System.IO
+#ifdef mingw32_HOST_OS
+import System.Win32.Console
+import System.Win32.NLS
+#endif
 
 main :: IO ()
-main = 
-    do args <- getArgs
-       case parseOptions args of
-         Ok (opts,files) -> mainOpts opts files
-         Bad err         -> do hPutStrLn stderr err
-                               hPutStrLn stderr "You may want to try --help."
-                               exitFailure
+main = do
+#ifdef mingw32_HOST_OS
+  codepage <- getACP
+  setConsoleCP codepage
+  setConsoleOutputCP codepage
+#endif
+  args <- getArgs
+  case parseOptions args of
+    Ok (opts,files) -> mainOpts opts files
+    Bad err         -> do hPutStrLn stderr err
+                          hPutStrLn stderr "You may want to try --help."
+                          exitFailure
 
 mainOpts :: Options -> [FilePath] -> IO ()
 mainOpts opts files =