diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-06 02:46:03 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-06 02:46:03 +0200 |
| commit | f0e965e99310a1df4c700a2d88e8c966a807f342 (patch) | |
| tree | 4d864e9a81230b95ded7cfed6751cccfc735fc00 /Operations.hs | |
| parent | 3e83b36a23203e91bfa24ec02a2da33162e1686f (diff) | |
| download | xmonad-f0e965e99310a1df4c700a2d88e8c966a807f342.tar.gz xmonad-f0e965e99310a1df4c700a2d88e8c966a807f342.tar.xz xmonad-f0e965e99310a1df4c700a2d88e8c966a807f342.zip | |
simplify code
darcs-hash:20070606004603-9c5c1-2bae3b2eb4287ea0bc349d6f590f39626adbb985.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |