diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2010-02-22 16:06:33 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2010-02-22 16:06:33 +0100 |
| commit | 9e8a1b6c9b34bd713257c25a242d845f3159b848 (patch) | |
| tree | 613c7e4cb2c3378ba3f751075692f45299c3514c /XMonad | |
| parent | 578fff98a710ba0014a9f44e3a750a7d8e7240d6 (diff) | |
| download | XMonadContrib-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')
| -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 |