From 968868a359331b46d56b861d02b31f6ec7244969 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Thu, 24 Jan 2008 13:47:25 +0000
Subject: [PATCH] ShowWName: moved fi to XUtils

---
 XMonad/Layout/ShowWName.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/XMonad/Layout/ShowWName.hs b/XMonad/Layout/ShowWName.hs
index 50956e02..2c0b6be7 100644
--- a/XMonad/Layout/ShowWName.hs
+++ b/XMonad/Layout/ShowWName.hs
@@ -98,7 +98,3 @@ flashName c (Rectangle _ _ wh ht) wrs = do
   io $ sync d False
   i <- startTimer (swn_fade c)
   return (wrs, Just $ SWN False c $ Just (i,w))
-
--- | Short-hand for 'fromIntegral'
-fi :: (Integral a, Num b) => a -> b
-fi = fromIntegral