diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-11-19 11:31:12 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-11-19 11:31:12 +0100 |
| commit | 0aaeb686f913cd51fc812551016bbd49e6c64822 (patch) | |
| tree | b289ed66303cfcccc0918d670c05736f48ba54f6 /XMonad | |
| parent | e8c2239f6fe58b4a9bacd3bfed984841bb860a27 (diff) | |
| download | XMonadContrib-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')
| -rw-r--r-- | XMonad/Hooks/PositionStoreHooks.hs | 3 |
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) |