twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 23:11:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use imported 'fi' in H.ScreenCorners

Browse Source
This commit is contained in:
Adam Vogt
2010-02-22 15:06:33 +00:00
parent c8cd7df334
commit 16fce733c0
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Hooks/ScreenCorners.hs
View File

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