From efaf5377c971423db4ad6ee8644fbeeb97a678bf Mon Sep 17 00:00:00 2001 From: "l.mai" Date: Thu, 16 Aug 2007 01:18:52 +0200 Subject: ghc thinks I don't need those fromIntegrals darcs-hash:20070815231852-42ea9-e37192317322b96583eca4e9d59dfd487bd47b40.gz --- FlexibleResize.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'FlexibleResize.hs') 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 -- cgit v1.2.3