From f0e965e99310a1df4c700a2d88e8c966a807f342 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 6 Jun 2007 02:46:03 +0200
Subject: simplify code

darcs-hash:20070606004603-9c5c1-2bae3b2eb4287ea0bc349d6f590f39626adbb985.gz
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 5ed65e8..50484c3 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -139,7 +139,7 @@ windows f = do
         rs <- doLayout l (Rectangle
                 (sx + fromIntegral gl)        (sy + fromIntegral gt)
                 (sw - fromIntegral (gl + gr)) (sh - fromIntegral (gt + gb))) tiled
-        mapM_ (\(win,rect) -> tileWindow win rect) rs
+        mapM_ (uncurry tileWindow) rs
 
         -- now the floating windows:
         -- move/resize the floating windows, if there are any
-- 
cgit v1.2.3