twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-04 06:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Remove redundant fromIntegrals

Browse Source
This commit is contained in:
Spencer Janssen
2007-05-21 16:51:23 +00:00
parent daefb508d7
commit c8cfc1faca
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Operations.hs
View File

@@ -101,7 +101,7 @@ windows f = modify (\s -> s { windowset = f (windowset s) }) >> refresh
hide :: Window -> X () hide :: Window -> X ()
hide w = withDisplay $ \d -> do hide w = withDisplay $ \d -> do
(sw,sh) <- gets dimensions (sw,sh) <- gets dimensions
io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh) io $ moveWindow d w (2*sw) (2*sh)
-- | refresh. Render the currently visible workspaces, as determined by -- | refresh. Render the currently visible workspaces, as determined by
-- the StackSet. Also, set focus to the focused window. -- the StackSet. Also, set focus to the focused window.