From 2d1ef1504b6b719fd6dbfb5ef507bb64b8050950 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Sun, 6 Apr 2008 04:09:35 +0200
Subject: XMonad.Util.Font: minor reformatting

darcs-hash:20080406020935-462cf-7570d989ed221f4394ad87e1207aa7fa14bd0789.gz
---
 XMonad/Util/Font.hsc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/Font.hsc b/XMonad/Util/Font.hsc
index be6b59e..e9484e6 100644
--- a/XMonad/Util/Font.hsc
+++ b/XMonad/Util/Font.hsc
@@ -104,9 +104,9 @@ initXMF s =
   else
 #endif
 #ifdef UTF8
-      (initUtf8Font s >>= (return . Utf8))
+      fmap Utf8 $ initUtf8Font s
 #else
-      (initCoreFont s >>= (return . Core))
+      fmap Core $ initCoreFont s
 #endif
 #ifdef XFT
   where xftPrefix = "xft:"
-- 
cgit v1.2.3