From d72088aae409cd15658088a74efa818787f014e6 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Tue, 14 Sep 2010 01:38:50 +0200
Subject: Remove last excess definition of `fi' (fromIntegral)

Ignore-this: 42d9282697573b361d763d980b816465

darcs-hash:20100913233850-1499c-20e07e9b380af55b7e1786630472a05996229c8c.gz
---
 XMonad/Util/Font.hs  | 1 +
 XMonad/Util/Image.hs | 9 +--------
 2 files changed, 2 insertions(+), 8 deletions(-)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/Font.hs b/XMonad/Util/Font.hs
index b08f021..d05b433 100644
--- a/XMonad/Util/Font.hs
+++ b/XMonad/Util/Font.hs
@@ -29,6 +29,7 @@ module XMonad.Util.Font
     , textExtentsXMF
     , printStringXMF
     , stringToPixel
+    , fi
     ) where
 
 import XMonad
diff --git a/XMonad/Util/Image.hs b/XMonad/Util/Image.hs
index 472586f..ff0ecdc 100644
--- a/XMonad/Util/Image.hs
+++ b/XMonad/Util/Image.hs
@@ -18,12 +18,10 @@ module XMonad.Util.Image
       Placement(..),
       iconPosition,
       drawIcon,
-
-      fi,
     ) where
 
 import XMonad
-import XMonad.Util.Font (stringToPixel)
+import XMonad.Util.Font (stringToPixel,fi)
 
 -- | Placement of the icon in the title bar
 data Placement = OffsetLeft Int Int   -- ^ An exact amount of pixels from the upper left corner
@@ -87,8 +85,3 @@ drawIcon dpy drw gc fc bc x y icon = do
   io $ fillRectangle dpy drw gc x y (fi i_w) (fi i_h)
   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