twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 20:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

little bit of strictness, based on -prof output

Browse Source
This commit is contained in:
Don Stewart
2007-03-09 06:34:49 +00:00
parent 914192cc70
commit f77f0ae32c
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Main.hs
View File

@@ -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 ()