diff options
| author | Don Stewart <dons@galois.com> | 2008-04-18 20:43:37 +0200 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-04-18 20:43:37 +0200 |
| commit | deced18248a7d9de714ce74dec71b3391cb909ff (patch) | |
| tree | 7fb2cb2db57310c59e2e2ae1d59564d6eef77168 | |
| parent | c93fbac6ea61940e59f11cabb780736a099fa22f (diff) | |
| download | xmonad-deced18248a7d9de714ce74dec71b3391cb909ff.tar.gz xmonad-deced18248a7d9de714ce74dec71b3391cb909ff.tar.xz xmonad-deced18248a7d9de714ce74dec71b3391cb909ff.zip | |
formatting, eta expansion
darcs-hash:20080418184337-cba2c-a316c61d1a56205e8b7a0e7b7573446449e229fe.gz
| -rw-r--r-- | XMonad/Main.hsc | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc index 5df6ed8..a0100a6 100644 --- a/XMonad/Main.hsc +++ b/XMonad/Main.hsc @@ -40,9 +40,15 @@ 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) +foreign import ccall unsafe "locale.h setlocale" + c_setlocale :: CInt -> Ptr CChar -> IO (Ptr CChar) + +------------------------------------------------------------------------ -- | -- The main entry point @@ -50,8 +56,7 @@ foreign import ccall unsafe "locale.h setlocale" c_setlocale :: CInt -> Ptr CCha xmonad :: (LayoutClass l Window, Read (l Window)) => XConfig l -> IO () xmonad initxmc = do -- setup locale information from environment - withCString "" $ \p -> do - c_setlocale (#const LC_ALL) p + withCString "" $ c_setlocale (#const LC_ALL) -- ignore SIGPIPE installHandler openEndedPipe Ignore Nothing -- First, wrap the layout in an existential, to keep things pretty: |