Remove last excess definition of `fi' (fromIntegral)

XMonad/Prompt.hs

@@ -71,7 +71,6 @@ import qualified XMonad.StackSet as W
 import XMonad.Util.Font
 import XMonad.Util.Types
 import XMonad.Util.XSelection (getSelection)
-import XMonad.Util.XUtils (fi)
 
 import Codec.Binary.UTF8.String (decodeString)
 import Control.Applicative ((<$>))
@@ -922,4 +921,4 @@ historyNextMatching hm@(HistoryMatches ref) next = do
 --
 historyUpMatching, historyDownMatching :: HistoryMatches -> XP ()
 historyUpMatching hm = historyNextMatching hm W.focusDown'
-historyDownMatching hm = historyNextMatching hm W.focusUp'
+historyDownMatching hm = historyNextMatching hm W.focusUp'

XMonad/Util/Font.hs

@@ -29,6 +29,7 @@ module XMonad.Util.Font
     , textExtentsXMF
     , printStringXMF
     , stringToPixel
+    , fi
     ) where
 
 import XMonad

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