From 4b73d3043896c2d759a60894bdfdadbc10d93bf4 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Tue, 29 Apr 2008 14:59:53 +0200
Subject: style, pointfree and trailing spaces

darcs-hash:20080429125953-d6583-02a6653c15d3166ad264c45ec44082bdae30260e.gz
---
 XUtil.hsc | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'XUtil.hsc')

diff --git a/XUtil.hsc b/XUtil.hsc
index 10d5995..e6de33c 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -81,9 +81,9 @@ initFont d s =
   else
 #endif
 #ifdef UTF8
-      (setupLocale >> initUtf8Font d s >>= (return . Utf8))
+      (setupLocale >> initUtf8Font d s >>= return . Utf8)
 #else
-      (initCoreFont d s >>= (return . Core))
+      (initCoreFont d s >>= return . Core)
 #endif
 #ifdef XFT
   where xftPrefix = "xft:"
@@ -219,8 +219,6 @@ fi = fromIntegral
 foreign import ccall unsafe "locale.h setlocale"
     setlocale :: CInt -> CString -> IO CString
 
-setupLocale :: IO ()
-setupLocale = withCString "" $ \s -> do
-                setlocale (#const LC_ALL) s
-                return ()
+setupLocale :: IO CString
+setupLocale = withCString "" $ setlocale (#const LC_ALL)
 #endif
-- 
cgit v1.2.3