Add HsLocale to support utf8

darcs-hash:20080216080026-d6583-444cd3a114db108b18002979902ccd55381c53be.gz

1 files changed, 27 insertions, 0 deletions

diff --git a/HsLocale.hsc b/HsLocale.hsc
new file mode 100644
index 0000000..a54ff34
--- /dev/null
+++ b/HsLocale.hsc
@@ -0,0 +1,27 @@
+{-# OPTIONS -fglasgow-exts #-}
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  HsLocale
+-- Copyright   :  (C) 2007 Andrea Rossato
+-- License     :  BSD3
+--
+-- Maintainer  :  andrea.rossato@unibz.it
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-----------------------------------------------------------------------------
+
+module HsLocale
+    ( setupLocale
+    ) where
+
+import Foreign.C
+
+#include <locale.h>
+foreign import ccall unsafe "locale.h setlocale"
+    setlocale :: CInt -> CString -> IO CString
+
+setupLocale :: IO ()
+setupLocale = withCString "" $ \s -> do
+                setlocale (#const LC_ALL) s
+                return ()