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/Layout/Gaps.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'XMonad/Layout/Gaps.hs') diff --git a/XMonad/Layout/Gaps.hs b/XMonad/Layout/Gaps.hs index 76dd57c..f672ea5 100644 --- a/XMonad/Layout/Gaps.hs +++ b/XMonad/Layout/Gaps.hs @@ -38,6 +38,7 @@ import Graphics.X11 (Rectangle(..)) import XMonad.Layout.LayoutModifier import XMonad.Util.Types (Direction2D(..)) +import XMonad.Util.XUtils (fi) import Data.List (delete) @@ -133,9 +134,6 @@ toggleGap conf cur d | d `elem` cur = delete d cur incGap :: GapSpec -> Direction2D -> Int -> GapSpec incGap gs d i = map (\(dir,j) -> if dir == d then (dir,max (j+i) 0) else (dir,j)) gs -fi :: (Num b, Integral a) => a -> b -fi = fromIntegral - -- | Add togglable manual gaps to a layout. gaps :: GapSpec -- ^ The gaps to allow, paired with their initial sizes. -> l a -- ^ The layout to modify. -- cgit v1.2.3