From: stolz <unknown>
Date: Fri, 20 Feb 2004 10:55:09 +0000 (+0000)
Subject: [project @ 2004-02-20 10:55:09 by stolz]
X-Git-Tag: nhc98-1-18-release~371
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0b6ac4d10ae2ce04e3b82c3219604363c8fdae4e;p=ghc-base.git

[project @ 2004-02-20 10:55:09 by stolz]
wibble (replace helper function with fromEnum)
---

diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index 41858e5..5168aeb 100644
--- a/System/Posix/Signals.hsc
+++ b/System/Posix/Signals.hsc
@@ -370,10 +370,8 @@ foreign import ccall "&nocldstop" nocldstop :: Ptr Int
 setStoppedChildFlag :: Bool -> IO Bool
 setStoppedChildFlag b = do
     rc <- peek nocldstop
-    poke nocldstop x
+    poke nocldstop $ fromEnum (not b) 
     return (rc == (0::Int))
-  where
-    x = case b of {True -> 0; False -> 1}
 
 -- | Queries the current state of the stopped child flag.
 queryStoppedChildFlag :: IO Bool