From c5b25d0fb00ff878886df89842c4a442819a0800 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Fri, 16 Apr 2010 23:29:39 +0200 Subject: Use imported `fi' alias for fromIntegral more often. Ignore-this: 51040e693066fd7803cc1b108c1a13d5 Also moves `fi' into U.Image to avoid cyclic imports, though XUtils sill exports that definition. darcs-hash:20100416212939-1499c-a12428074d873b1eaea197e1b79c0ca07a96b05f.gz --- XMonad/Actions/FlexibleResize.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'XMonad/Actions/FlexibleResize.hs') diff --git a/XMonad/Actions/FlexibleResize.hs b/XMonad/Actions/FlexibleResize.hs index a387c19..05f232f 100644 --- a/XMonad/Actions/FlexibleResize.hs +++ b/XMonad/Actions/FlexibleResize.hs @@ -20,6 +20,7 @@ module XMonad.Actions.FlexibleResize ( ) where import XMonad +import XMonad.Util.XUtils (fi) import Foreign.C.Types -- $usage @@ -76,6 +77,3 @@ mouseResizeEdgeWindow edge w = whenX (isClient w) $ withDisplay $ \d -> do Just True -> (0, (fi k + fi p -).fi, (fi k + fi p -).fi) Nothing -> (k `div` 2, const p, const $ fi k) Just False -> (k, const p, subtract (fi p) . fi) - -fi :: (Num b, Integral a) => a -> b -fi = fromIntegral -- cgit v1.2.3