Simplify

darcs-hash:20080507011309-a5988-bc76a64cabc39d7c3ef2dca7e1246e6f9dbc4e0b

1 files changed, 2 insertions, 4 deletions

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