From e981e32f3644c900ab35bfe05ce9971523fb545c Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Thu, 24 Jan 2008 14:47:25 +0100
Subject: ShowWName: moved fi to XUtils

darcs-hash:20080124134725-32816-305f741221c5602147daed2798a2c0b28fe3a850.gz
---
 XMonad/Layout/ShowWName.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'XMonad/Layout/ShowWName.hs')

diff --git a/XMonad/Layout/ShowWName.hs b/XMonad/Layout/ShowWName.hs
index 50956e0..2c0b6be 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
-- 
cgit v1.2.3