From: Ian Lynagh <igloo@earth.li>
Date: Tue, 13 Apr 2010 01:11:47 +0000 (+0000)
Subject: Tiny code tidy-up
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=3f264526fcd857eafbd1eeb1450a0e0da4e32c84

Tiny code tidy-up
---

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index 97a9ef2..f86c205 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -841,7 +841,7 @@ prodServiceThread = do
   -- conditions in which prodding is left at True but the server is
   -- blocked in select().
   was_set <- atomicModifyIORef prodding $ \b -> (True,b)
-  if (not (was_set)) then  wakeupIOManager else return ()
+  unless was_set wakeupIOManager
 
 -- Machinery needed to ensure that we only have one copy of certain
 -- CAFs in this module even when the base package is present twice, as