From dd9abde912a7c456b1885c03d490cf5714cf7312 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Fri, 18 Apr 2008 20:43:37 +0200
Subject: formatting, eta expansion

darcs-hash:20080418184337-cba2c-a316c61d1a56205e8b7a0e7b7573446449e229fe
---
 XMonad/Main.hsc | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'XMonad')

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:
-- 
cgit v1.2.3