From b437defb0ebfffa0bfd960501f7fae18c0546210 Mon Sep 17 00:00:00 2001 From: "cwills.dev" Date: Sun, 2 Feb 2014 22:36:13 +0100 Subject: SpawnNamedPipe hlint cleanup Ignore-this: dbb68c4c5522026bd108d0158e747b48 darcs-hash:20140202213613-3cb8c-f6ff5fd1a38cb0bc9ba779495369009817bb92dc.gz --- XMonad/Util/SpawnNamedPipe.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Util') 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) -- cgit v1.2.3