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/Magnifier.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'XMonad/Layout/Magnifier.hs') diff --git a/XMonad/Layout/Magnifier.hs b/XMonad/Layout/Magnifier.hs index 7f812ce..6113412 100644 --- a/XMonad/Layout/Magnifier.hs +++ b/XMonad/Layout/Magnifier.hs @@ -32,6 +32,7 @@ module XMonad.Layout.Magnifier import XMonad import XMonad.StackSet import XMonad.Layout.LayoutModifier +import XMonad.Util.XUtils -- $usage -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: @@ -159,6 +160,3 @@ fit (Rectangle sx sy sw sh) (Rectangle x y w h) = Rectangle x' y' w' h' y' = max sy (y - (max 0 (y + fi h - sy - fi sh))) w' = min sw w h' = min sh h - -fi :: (Num b, Integral a) => a -> b -fi = fromIntegral -- cgit v1.2.3