From c345622e63b3e0ce53e997a1c17ce2dbf3b28e56 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 7 May 2008 03:13:09 +0200 Subject: Simplify darcs-hash:20080507011309-a5988-bc76a64cabc39d7c3ef2dca7e1246e6f9dbc4e0b --- XMonad/Layout.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'XMonad') diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs index 1e9970a..9cd6bf8 100644 --- a/XMonad/Layout.hs +++ b/XMonad/Layout.hs @@ -188,10 +188,8 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where ml' <- handle l FirstLayout choose c L ml' Nothing - handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m = do - ml' <- handle l ReleaseResources - mr' <- handle r ReleaseResources - choose c d ml' mr' + handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m = + join $ liftM2 (choose c d) (handle l ReleaseResources) (handle r ReleaseResources) handleMessage c@(Choose d l r) m = do ml' <- case d of -- cgit v1.2.3