From 039a76c9cb296edd921c08253e63afcc43a7eecb Mon Sep 17 00:00:00 2001 From: "l.mai" Date: Wed, 15 Aug 2007 23:18:52 +0000 Subject: [PATCH] ghc thinks I don't need those fromIntegrals --- FlexibleResize.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FlexibleResize.hs b/FlexibleResize.hs index f031a8f5..360df53a 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