diff options
| author | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
| commit | 6313244eacf992fb10a5091bee28582e84540809 (patch) | |
| tree | 8208fb18a5e1ab9447bd060cf08a3d78ed0a8c0a /src/compiler/GF.hs | |
| parent | 8b5827fc892c2f395ae26f1811da2d4cc3b1669d (diff) | |
use the native unicode support from GHC 6.12
Diffstat (limited to 'src/compiler/GF.hs')
| -rw-r--r-- | src/compiler/GF.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |