diff options
Diffstat (limited to '')
| -rw-r--r-- | src/XMonad/Main.hs (renamed from src/XMonad/Main.hsc) | 14 |
1 files changed, 2 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: |