From e8c2239f6fe58b4a9bacd3bfed984841bb860a27 Mon Sep 17 00:00:00 2001 From: Daniel Schoepe Date: Mon, 16 Nov 2009 18:10:13 +0100 Subject: Changed interface of X.U.ExtensibleState Ignore-this: 9a830f9341e461628974890bab0bd65b Changed the interface of X.U.ExtensibleState to resemble that of Control.Monad.State and modified the modules that use it accordingly. darcs-hash:20091116171013-7f603-0631dc163d78785b123bc10164ee3295add28b60.gz --- XMonad/Util/PositionStore.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'XMonad/Util/PositionStore.hs') diff --git a/XMonad/Util/PositionStore.hs b/XMonad/Util/PositionStore.hs index 4844039..830f068 100644 --- a/XMonad/Util/PositionStore.hs +++ b/XMonad/Util/PositionStore.hs @@ -26,7 +26,7 @@ module XMonad.Util.PositionStore ( ) where import XMonad -import XMonad.Util.ExtensibleState +import qualified XMonad.Util.ExtensibleState as XS import Graphics.X11.Xlib import Graphics.X11.Types import Data.Typeable @@ -46,12 +46,10 @@ instance ExtensionClass PositionStore where extensionType = PersistentExtension getPosStore :: X (PositionStore) -getPosStore = getState +getPosStore = XS.get modifyPosStore :: (PositionStore -> PositionStore) -> X () -modifyPosStore f = do - posStore <- getState - putState (f posStore) +modifyPosStore = XS.modify posStoreInsert :: PositionStore -> Window -> Rectangle -> Rectangle -> PositionStore posStoreInsert (PS posStoreMap) w (Rectangle x y wh ht) (Rectangle srX srY srWh srHt) = -- cgit v1.2.3