diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 07:34:49 +0100 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 07:34:49 +0100 |
| commit | 9e5d96bda05e57660819869b1c50a2cb3138479e (patch) | |
| tree | 54027f155992d8e0c0fd974bd1401db5ba1e2f78 /Main.hs | |
| parent | dc9e17da5048c08190c895f482cbda05456a9934 (diff) | |
| download | xmonad-9e5d96bda05e57660819869b1c50a2cb3138479e.tar.gz xmonad-9e5d96bda05e57660819869b1c50a2cb3138479e.tar.xz xmonad-9e5d96bda05e57660819869b1c50a2cb3138479e.zip | |
little bit of strictness, based on -prof output
darcs-hash:20070309063449-9c5c1-664dc95c81b702211f3bc61f53aa31f5eb5bd81d.gz
Diffstat (limited to 'Main.hs')
| -rw-r--r-- | Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -155,11 +155,11 @@ hide :: Window -> W () hide w = withDisplay $ \d -> do sw <- gets screenWidth sh <- gets screenHeight - io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh) + io $! moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh) -- | reveal. Expose a list of windows, moving them on screen reveal :: Window -> W () -reveal w = withDisplay $ \d -> io $ moveWindow d w 0 0 +reveal w = withDisplay $ \d -> io $! moveWindow d w 0 0 -- | windows. Modify the current window list with a pure function, and refresh windows :: (WorkSpace -> WorkSpace) -> W () |