diff options
| -rw-r--r-- | XMonad/Hooks/ScreenCorners.hs | 4 |
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 |