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/Util/Image.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'XMonad/Util/Image.hs')

diff --git a/XMonad/Util/Image.hs b/XMonad/Util/Image.hs
index 92ef76c..472586f 100644
--- a/XMonad/Util/Image.hs
+++ b/XMonad/Util/Image.hs
@@ -17,7 +17,9 @@ module XMonad.Util.Image
       -- $usage
       Placement(..),
       iconPosition,
-      drawIcon
+      drawIcon,
+
+      fi,
     ) where
 
 import XMonad
@@ -86,6 +88,7 @@ drawIcon dpy drw gc fc bc x y icon = do
   io $ setForeground dpy gc fcolor
   io $ drawPoints dpy drw gc (movePoints x y (iconToPoints icon)) coordModeOrigin
 
+
 -- | Short-hand for 'fromIntegral'
 fi :: (Integral a, Num b) => a -> b
 fi = fromIntegral
-- 
cgit v1.2.3