diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-04-29 14:59:53 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-04-29 14:59:53 +0200 |
| commit | 4b73d3043896c2d759a60894bdfdadbc10d93bf4 (patch) | |
| tree | 5ff75f2b73efa0f590e04a9b693606c2b8499814 /XUtil.hsc | |
| parent | 661ba1eaf6f10dad7dcff79a326ebb5d22d012c6 (diff) | |
| download | xmobar-4b73d3043896c2d759a60894bdfdadbc10d93bf4.tar.gz xmobar-4b73d3043896c2d759a60894bdfdadbc10d93bf4.tar.bz2 | |
style, pointfree and trailing spaces0.9_release
darcs-hash:20080429125953-d6583-02a6653c15d3166ad264c45ec44082bdae30260e.gz
Diffstat (limited to 'XUtil.hsc')
| -rw-r--r-- | XUtil.hsc | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -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 |