Minor style corrections in X.U.SpawnOnce

Ignore-this: 1264852c23b4f84b2580bf4567529c68

darcs-hash:20091109201543-7f603-550d81edf3aecf9eaf4de25736e61d36adc8524c.gz

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)