From 6313244eacf992fb10a5091bee28582e84540809 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 19 Apr 2010 09:38:36 +0000
Subject: use the native unicode support from GHC 6.12

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

(limited to 'src/compiler/GF.hs')

diff --git a/src/compiler/GF.hs b/src/compiler/GF.hs
index 32a95ca1f..503253589 100644
--- a/src/compiler/GF.hs
+++ b/src/compiler/GF.hs
@@ -24,6 +24,10 @@ main = do
   codepage <- getACP
   setConsoleCP codepage
   setConsoleOutputCP codepage
+  enc <- mkTextEncoding ("CP"++show codepage)
+  hSetEncoding stdin  enc
+  hSetEncoding stdout enc
+  hSetEncoding stderr enc
 #endif
   args <- getArgs
   case parseOptions args of
-- 
cgit v1.2.3