diff options
author | l.mai <l.mai@web.de> | 2007-08-16 01:18:52 +0200 |
---|---|---|
committer | l.mai <l.mai@web.de> | 2007-08-16 01:18:52 +0200 |
commit | efaf5377c971423db4ad6ee8644fbeeb97a678bf (patch) | |
tree | 30d388555ebf3269e0e6ea358e30b2d5ceb09088 | |
parent | 450717ef44ff3ff06c0bc228acd1547e33b72d36 (diff) | |
download | XMonadContrib-efaf5377c971423db4ad6ee8644fbeeb97a678bf.tar.gz XMonadContrib-efaf5377c971423db4ad6ee8644fbeeb97a678bf.tar.xz XMonadContrib-efaf5377c971423db4ad6ee8644fbeeb97a678bf.zip |
ghc thinks I don't need those fromIntegrals
darcs-hash:20070815231852-42ea9-e37192317322b96583eca4e9d59dfd487bd47b40.gz
-rw-r--r-- | FlexibleResize.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FlexibleResize.hs b/FlexibleResize.hs index f031a8f..360df53 100644 --- a/FlexibleResize.hs +++ b/FlexibleResize.hs @@ -48,8 +48,8 @@ mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do mouseDrag (\ex ey -> do wa' <- io $ getWindowAttributes d w let [px, py] = map (fromIntegral . ($ wa')) [wa_x, wa_y] - io $ moveResizeWindow d w (fromIntegral $ fx px (fromIntegral ex)) - (fromIntegral $ fy py (fromIntegral ey)) + io $ moveResizeWindow d w (fx px (fromIntegral ex)) + (fy py (fromIntegral ey)) `uncurry` applySizeHints sh (gx $ fromIntegral ex, gy $ fromIntegral ey)) (float w) where |