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/Reflect.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'XMonad/Layout/Reflect.hs') diff --git a/XMonad/Layout/Reflect.hs b/XMonad/Layout/Reflect.hs index bd127ea..19f6200 100644 --- a/XMonad/Layout/Reflect.hs +++ b/XMonad/Layout/Reflect.hs @@ -29,6 +29,7 @@ import Control.Arrow (second) import XMonad.Layout.LayoutModifier import XMonad.Layout.MultiToggle +import XMonad.Util.XUtils (fi) -- $usage -- You can use this module by importing it into your @~\/.xmonad\/xmonad.hs@ file: @@ -85,8 +86,6 @@ reflectRect Horiz (Rectangle sx _ sw _) (Rectangle rx ry rw rh) = reflectRect Vert (Rectangle _ sy _ sh) (Rectangle rx ry rw rh) = Rectangle rx (2*sy + fi sh - ry - fi rh) rw rh -fi :: (Integral a, Num b) => a -> b -fi = fromIntegral data Reflect a = Reflect ReflectDir deriving (Show, Read) -- cgit v1.2.3