From cd2a071de52f56bba73a56b79e881c91f1e8dc2e Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Thu, 17 Jan 2013 21:43:06 +0000
Subject: [PATCH] Fix signals004 on OS X 32
---
tests/signals004.hs | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/tests/signals004.hs b/tests/signals004.hs
index d822056..ee6ca85 100644
--- a/tests/signals004.hs
+++ b/tests/signals004.hs
@@ -1,4 +1,5 @@
import Control.Concurrent
+import System.Info
import System.Posix
import Control.Monad
@@ -8,7 +9,11 @@ import Control.Monad
installers = 50
-- too many signals overflows the IO manager's pipe buffer, this seems
-- to be the most we can get away with:
-sigs = 400
+sigs = if os == "darwin"
+ then 30 -- Otherwise we get "lost signal due to full pipe: 30"
+ -- errors after the timeout kills the hung process
+ -- for the threaded{1,2} ways
+ else 400
main = do
c <- newChan
--
GitLab