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

ghc thinks I don't need those fromIntegrals

Browse Source
This commit is contained in:
l.mai 2007-08-15 23:18:52 +00:00
parent 002b15cb1f
commit 039a76c9cb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
FlexibleResize.hs
View File

@ -48,8 +48,8 @@ mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do
mouseDrag (\ex ey -> do mouseDrag (\ex ey -> do
wa' <- io $ getWindowAttributes d w wa' <- io $ getWindowAttributes d w
let [px, py] = map (fromIntegral . ($ wa')) [wa_x, wa_y] let [px, py] = map (fromIntegral . ($ wa')) [wa_x, wa_y]
io $ moveResizeWindow d w (fromIntegral $ fx px (fromIntegral ex)) io $ moveResizeWindow d w (fx px (fromIntegral ex))
(fromIntegral $ fy py (fromIntegral ey)) (fy py (fromIntegral ey))
`uncurry` applySizeHints sh (gx $ fromIntegral ex, gy $ fromIntegral ey)) `uncurry` applySizeHints sh (gx $ fromIntegral ex, gy $ fromIntegral ey))
(float w) (float w)
where where