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 | dd9abde912a7c456b1885c03d490cf5714cf7312 (patch) | |
| tree | 7fb2cb2db57310c59e2e2ae1d59564d6eef77168 | |
| parent | 1eedc6595237f534b2c64e39abd2298a0dd2bddc (diff) | |
| download | metatile-dd9abde912a7c456b1885c03d490cf5714cf7312.tar metatile-dd9abde912a7c456b1885c03d490cf5714cf7312.zip | |
formatting, eta expansion
darcs-hash:20080418184337-cba2c-a316c61d1a56205e8b7a0e7b7573446449e229fe
| -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: |