From 0b6ac4d10ae2ce04e3b82c3219604363c8fdae4e Mon Sep 17 00:00:00 2001
From: stolz <unknown>
Date: Fri, 20 Feb 2004 10:55:09 +0000
Subject: [PATCH] [project @ 2004-02-20 10:55:09 by stolz] wibble (replace
 helper function with fromEnum)

---
 System/Posix/Signals.hsc |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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
-- 
1.7.10.4