diff options
| author | cwills.dev <cwills.dev@gmail.com> | 2014-02-02 22:36:13 +0100 |
|---|---|---|
| committer | cwills.dev <cwills.dev@gmail.com> | 2014-02-02 22:36:13 +0100 |
| commit | b437defb0ebfffa0bfd960501f7fae18c0546210 (patch) | |
| tree | a6ee98adb99639675345e26d314feb7503f2efff | |
| parent | 3567a569d9b83f2a8f599843510447543b5078d3 (diff) | |
| download | XMonadContrib-b437defb0ebfffa0bfd960501f7fae18c0546210.tar.gz XMonadContrib-b437defb0ebfffa0bfd960501f7fae18c0546210.tar.xz XMonadContrib-b437defb0ebfffa0bfd960501f7fae18c0546210.zip | |
SpawnNamedPipe hlint cleanup
Ignore-this: dbb68c4c5522026bd108d0158e747b48
darcs-hash:20140202213613-3cb8c-f6ff5fd1a38cb0bc9ba779495369009817bb92dc.gz
| -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) |