aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2010-02-22 16:06:33 +0100
committerAdam Vogt <vogt.adam@gmail.com>2010-02-22 16:06:33 +0100
commit9e8a1b6c9b34bd713257c25a242d845f3159b848 (patch)
tree613c7e4cb2c3378ba3f751075692f45299c3514c /XMonad/Hooks
parent578fff98a710ba0014a9f44e3a750a7d8e7240d6 (diff)
downloadXMonadContrib-9e8a1b6c9b34bd713257c25a242d845f3159b848.tar.gz
XMonadContrib-9e8a1b6c9b34bd713257c25a242d845f3159b848.tar.xz
XMonadContrib-9e8a1b6c9b34bd713257c25a242d845f3159b848.zip
Use imported 'fi' in H.ScreenCorners
Ignore-this: 45ceb91d6c39f29bb937aa29c0bc2e66 darcs-hash:20100222150633-1499c-43d850ac038ee20a861ae90d3c678da4d6cc2167.gz
Diffstat (limited to 'XMonad/Hooks')
-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