From 2fa824153f71dfd2db26490deafcb2a3b5a63a1f Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 7 May 2008 03:25:19 +0200
Subject: Style

darcs-hash:20080507012519-a5988-3c2577c486ae0bdb5e2ba4b4f814608ddad54d45
---
 XMonad/Layout.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'XMonad/Layout.hs')

diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 9cd6bf8..65868b2 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -185,8 +185,7 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where
             R -> choose c R Nothing =<< handle r NextNoWrap
 
     handleMessage c@(Choose _ l _) m | Just FirstLayout <- fromMessage m = do        
-        ml' <- handle l FirstLayout
-        choose c L ml' Nothing
+        flip (choose c L) Nothing =<< handle l FirstLayout
 
     handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m =
         join $ liftM2 (choose c d) (handle l ReleaseResources) (handle r ReleaseResources)
-- 
cgit v1.2.3