From 3f264526fcd857eafbd1eeb1450a0e0da4e32c84 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 13 Apr 2010 01:11:47 +0000 Subject: [PATCH] Tiny code tidy-up --- GHC/Conc.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4