From c5b25d0fb00ff878886df89842c4a442819a0800 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
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/UpdatePointer.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'XMonad/Actions/UpdatePointer.hs')

diff --git a/XMonad/Actions/UpdatePointer.hs b/XMonad/Actions/UpdatePointer.hs
index 7fff869..4eed35d 100644
--- a/XMonad/Actions/UpdatePointer.hs
+++ b/XMonad/Actions/UpdatePointer.hs
@@ -24,6 +24,7 @@ module XMonad.Actions.UpdatePointer
     where
 
 import XMonad
+import XMonad.Util.XUtils (fi)
 import Control.Monad
 import XMonad.StackSet (member, peek, screenDetail, current)
 import Data.Maybe
@@ -102,6 +103,3 @@ moveWithin now lower upper =
     else if now > upper
          then upper
          else now
-
-fi :: (Num b, Integral a) => a -> b
-fi = fromIntegral
-- 
cgit v1.2.3