aboutsummaryrefslogtreecommitdiffstats
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
commitdeced18248a7d9de714ce74dec71b3391cb909ff (patch)
tree7fb2cb2db57310c59e2e2ae1d59564d6eef77168 /XMonad
parentc93fbac6ea61940e59f11cabb780736a099fa22f (diff)
downloadxmonad-deced18248a7d9de714ce74dec71b3391cb909ff.tar.gz
xmonad-deced18248a7d9de714ce74dec71b3391cb909ff.tar.xz
xmonad-deced18248a7d9de714ce74dec71b3391cb909ff.zip
formatting, eta expansion
darcs-hash:20080418184337-cba2c-a316c61d1a56205e8b7a0e7b7573446449e229fe.gz
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: