From 0aaeb686f913cd51fc812551016bbd49e6c64822 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Thu, 19 Nov 2009 11:31:12 +0100 Subject: Use imported 'fi' in PositionStoreHooks Ignore-this: 6563a3093083667c79aa491a6f59b805 darcs-hash:20091119103112-1499c-e0ded57d325cf75820408eb30b6c30611073ef01.gz --- XMonad/Hooks/PositionStoreHooks.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'XMonad/Hooks') 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) -- cgit v1.2.3