summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2008-04-18 20:43:37 +0200
committerDon Stewart <dons@galois.com>2008-04-18 20:43:37 +0200
commitdd9abde912a7c456b1885c03d490cf5714cf7312 (patch)
tree7fb2cb2db57310c59e2e2ae1d59564d6eef77168 /XMonad
parent1eedc6595237f534b2c64e39abd2298a0dd2bddc (diff)
downloadmetatile-dd9abde912a7c456b1885c03d490cf5714cf7312.tar
metatile-dd9abde912a7c456b1885c03d490cf5714cf7312.zip
formatting, eta expansion
darcs-hash:20080418184337-cba2c-a316c61d1a56205e8b7a0e7b7573446449e229fe
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Main.hsc11
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: