summaryrefslogtreecommitdiffhomepage
path: root/HsLocale.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'HsLocale.hsc')
-rw-r--r--HsLocale.hsc27
1 files changed, 0 insertions, 27 deletions
diff --git a/HsLocale.hsc b/HsLocale.hsc
deleted file mode 100644
index a54ff34..0000000
--- a/HsLocale.hsc
+++ /dev/null
@@ -1,27 +0,0 @@
-{-# 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 ()