diff options
| -rw-r--r-- | src/XMonad/Main.hs (renamed from src/XMonad/Main.hsc) | 14 | ||||
| -rw-r--r-- | xmonad.cabal | 1 |
2 files changed, 3 insertions, 12 deletions
diff --git a/src/XMonad/Main.hsc b/src/XMonad/Main.hs index 4be4ac6..1208111 100644 --- a/src/XMonad/Main.hsc +++ b/src/XMonad/Main.hs @@ -15,6 +15,7 @@ module XMonad.Main (xmonad) where +import System.Locale.SetLocale import Control.Arrow (second) import Data.Bits import Data.List ((\\)) @@ -26,9 +27,6 @@ import Control.Monad.State import Data.Maybe (fromMaybe) import Data.Monoid (getAll) -import Foreign.C -import Foreign.Ptr - import System.Environment (getArgs) import Graphics.X11.Xlib hiding (refreshKeyboardMapping) @@ -43,14 +41,6 @@ import XMonad.Operations import System.IO ------------------------------------------------------------------------ --- Locale support - -#include <locale.h> - -foreign import ccall unsafe "locale.h setlocale" - c_setlocale :: CInt -> Ptr CChar -> IO (Ptr CChar) - ------------------------------------------------------------------------- -- | -- The main entry point @@ -58,7 +48,7 @@ foreign import ccall unsafe "locale.h setlocale" xmonad :: (LayoutClass l Window, Read (l Window)) => XConfig l -> IO () xmonad initxmc = do -- setup locale information from environment - withCString "" $ c_setlocale (#const LC_ALL) + setLocale LC_ALL Nothing -- ignore SIGPIPE and SIGCHLD installSignalHandlers -- First, wrap the layout in an existential, to keep things pretty: diff --git a/xmonad.cabal b/xmonad.cabal index 7b4d125..4a3d726 100644 --- a/xmonad.cabal +++ b/xmonad.cabal @@ -59,6 +59,7 @@ library directory, extensible-exceptions, filepath, + setlocale, mtl, process, unix, |