From b437defb0ebfffa0bfd960501f7fae18c0546210 Mon Sep 17 00:00:00 2001
From: "cwills.dev" <cwills.dev@gmail.com>
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