From 389ba6058d336e4f193fa02c1fad3edad67415c1 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 21 Feb 2008 15:58:19 +0000
Subject: For Windows change the Console Code Page to the default ANSI code
 page. This fixes the problem with cyrilic.

---
 src/GF.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
index 006d5f0df..1d2651767 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS -cpp #-}
 ----------------------------------------------------------------------
 -- |
 -- Module      : Main
@@ -37,10 +38,21 @@ import System (getArgs,system,getEnv)
 import Control.Monad (foldM,liftM)
 import Data.List (nub)
 
+#ifdef mingw32_HOST_OS
+import System.Win32.Console
+import System.Win32.NLS
+#endif
+
 -- AR 19/4/2000 -- 21/3/2006
 
 main :: IO ()
 main = do
+#ifdef mingw32_HOST_OS
+  codepage <- getACP
+  setConsoleCP codepage
+  setConsoleOutputCP codepage
+#endif
+  
   xs <- getArgs
   let 
    (os,fs) = getOptions "-" xs
-- 
cgit v1.2.3