summaryrefslogtreecommitdiff
path: root/src/compiler/GF/System/Console.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/compiler/GF/System/Console.hs')
-rw-r--r--src/compiler/GF/System/Console.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/compiler/GF/System/Console.hs b/src/compiler/GF/System/Console.hs
index ea901d55d..975b229f1 100644
--- a/src/compiler/GF/System/Console.hs
+++ b/src/compiler/GF/System/Console.hs
@@ -1,11 +1,14 @@
{-# LANGUAGE CPP #-}
-module GF.System.Console(setConsoleEncoding,changeConsoleEncoding) where
+module GF.System.Console(
+ -- ** Changing which character encoding to use for console IO
+ setConsoleEncoding,changeConsoleEncoding) where
import System.IO
#ifdef mingw32_HOST_OS
import System.Win32.Console
import System.Win32.NLS
#endif
+-- | Set the console encoding (for Windows, has no effect on Unix-like systems)
setConsoleEncoding =
#ifdef mingw32_HOST_OS
do codepage <- getACP