diff options
Diffstat (limited to 'XMonad/Util/SpawnOnce.hs')
| -rw-r--r-- | XMonad/Util/SpawnOnce.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Util/SpawnOnce.hs b/XMonad/Util/SpawnOnce.hs index edb3b5f..fc05222 100644 --- a/XMonad/Util/SpawnOnce.hs +++ b/XMonad/Util/SpawnOnce.hs @@ -26,14 +26,14 @@ data SpawnOnce = SpawnOnce { unspawnOnce :: (Set String) } deriving (Read, Show, Typeable) instance ExtensionClass SpawnOnce where - initialValue = SpawnOnce $ Set.empty + initialValue = SpawnOnce Set.empty extensionType = PersistentExtension -- | The first time 'spawnOnce' is executed on a particular command, that -- command is executed. Subsequent invocations for a command do nothing. spawnOnce :: String -> X () spawnOnce xs = do - b <- fmap (Set.member xs . unspawnOnce) $ getState + b <- fmap (Set.member xs . unspawnOnce) getState when (not b) $ do spawn xs modifyState (SpawnOnce . Set.insert xs . unspawnOnce) |