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/SpawnOnce.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Util/SpawnOnce.hs') diff --git a/XMonad/Util/SpawnOnce.hs b/XMonad/Util/SpawnOnce.hs index fc05222..f958c18 100644 --- a/XMonad/Util/SpawnOnce.hs +++ b/XMonad/Util/SpawnOnce.hs @@ -19,7 +19,7 @@ module XMonad.Util.SpawnOnce (spawnOnce) where import XMonad import Data.Set as Set -import XMonad.Util.ExtensibleState +import qualified XMonad.Util.ExtensibleState as XS import Control.Monad data SpawnOnce = SpawnOnce { unspawnOnce :: (Set String) } @@ -33,7 +33,7 @@ instance ExtensionClass SpawnOnce where -- command is executed. Subsequent invocations for a command do nothing. spawnOnce :: String -> X () spawnOnce xs = do - b <- fmap (Set.member xs . unspawnOnce) getState + b <- XS.gets (Set.member xs . unspawnOnce) when (not b) $ do spawn xs - modifyState (SpawnOnce . Set.insert xs . unspawnOnce) + XS.modify (SpawnOnce . Set.insert xs . unspawnOnce) -- cgit v1.2.3