From 9e8a1b6c9b34bd713257c25a242d845f3159b848 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Mon, 22 Feb 2010 16:06:33 +0100
Subject: Use imported 'fi' in H.ScreenCorners

Ignore-this: 45ceb91d6c39f29bb937aa29c0bc2e66

darcs-hash:20100222150633-1499c-43d850ac038ee20a861ae90d3c678da4d6cc2167.gz
---
 XMonad/Hooks/ScreenCorners.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Hooks/ScreenCorners.hs b/XMonad/Hooks/ScreenCorners.hs
index ee016c4..38dddd4 100644
--- a/XMonad/Hooks/ScreenCorners.hs
+++ b/XMonad/Hooks/ScreenCorners.hs
@@ -30,6 +30,7 @@ module XMonad.Hooks.ScreenCorners
 import Data.Monoid
 import Data.List (find)
 import XMonad
+import XMonad.Util.XUtils (fi)
 
 import qualified Data.Map as M
 import qualified XMonad.Util.ExtensibleState as XS
@@ -73,9 +74,6 @@ addScreenCorners = mapM_ (\(corner, xF) -> addScreenCorner corner xF)
 -- Xlib functions
 --------------------------------------------------------------------------------
 
-fi :: (Integral a, Num b) => a -> b
-fi = fromIntegral
-
 -- "Translate" a ScreenCorner to real (x,y) Positions
 createWindowAt :: ScreenCorner -> X Window
 createWindowAt SCUpperLeft = createWindowAt' 0 0
-- 
cgit v1.2.3