aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2009-11-19 11:31:12 +0100
committerAdam Vogt <vogt.adam@gmail.com>2009-11-19 11:31:12 +0100
commit0aaeb686f913cd51fc812551016bbd49e6c64822 (patch)
treeb289ed66303cfcccc0918d670c05736f48ba54f6 /XMonad/Hooks
parente8c2239f6fe58b4a9bacd3bfed984841bb860a27 (diff)
downloadXMonadContrib-0aaeb686f913cd51fc812551016bbd49e6c64822.tar.gz
XMonadContrib-0aaeb686f913cd51fc812551016bbd49e6c64822.tar.xz
XMonadContrib-0aaeb686f913cd51fc812551016bbd49e6c64822.zip
Use imported 'fi' in PositionStoreHooks
Ignore-this: 6563a3093083667c79aa491a6f59b805 darcs-hash:20091119103112-1499c-e0ded57d325cf75820408eb30b6c30611073ef01.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/PositionStoreHooks.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Hooks/PositionStoreHooks.hs b/XMonad/Hooks/PositionStoreHooks.hs
index 60fb448..484a2cb 100644
--- a/XMonad/Hooks/PositionStoreHooks.hs
+++ b/XMonad/Hooks/PositionStoreHooks.hs
@@ -36,6 +36,7 @@ module XMonad.Hooks.PositionStoreHooks (
import XMonad
import qualified XMonad.StackSet as W
import XMonad.Util.PositionStore
+import XMonad.Util.XUtils (fi)
import System.Random(randomRIO)
import Control.Applicative((<$>))
@@ -83,8 +84,6 @@ positionStoreInit w = withDisplay $ \d -> do
(Rectangle (fi $ wa_x wa) (fi $ wa_y wa)
(fi $ wa_width wa) (fi $ wa_height wa)) sr )
where
- fi :: (Integral a, Num b) => a -> b
- fi = fromIntegral
randomIntOffset :: X (Int)
randomIntOffset = io $ randomRIO (42, 242)