aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Hooks/ScreenCorners.hs4
1 files changed, 1 insertions, 3 deletions
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