do the cyrilic trick for Windows in gf3 also

src-3.0/GF.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS -cpp #-}
 module Main where
 
 import GFC
@@ -11,10 +12,19 @@ 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 = 
+main = do
-    do args <- getArgs
+#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