diff options
| -rw-r--r-- | XMonad/Util/SpawnNamedPipe.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Util/SpawnNamedPipe.hs b/XMonad/Util/SpawnNamedPipe.hs index c5d15ac..a598b99 100644 --- a/XMonad/Util/SpawnNamedPipe.hs +++ b/XMonad/Util/SpawnNamedPipe.hs @@ -51,7 +51,7 @@ import qualified Data.Map.Strict as Map -- > , logHook = logHook'} -- -data NamedPipes = NamedPipes { pipeMap :: (Map.Map String Handle) } +data NamedPipes = NamedPipes { pipeMap :: Map.Map String Handle } deriving (Show, Typeable) instance ExtensionClass NamedPipes where @@ -64,7 +64,7 @@ instance ExtensionClass NamedPipes where spawnNamedPipe :: String -> String -> X () spawnNamedPipe cmd name = do b <- XS.gets (Map.member name . pipeMap) - when (not b) $ do + unless b $ do h <- spawnPipe cmd XS.modify (NamedPipes . Map.insert name h . pipeMap) |