From 713b4382b1c7420c6267d29809d01ad540f4ed46 Mon Sep 17 00:00:00 2001
From: dons <unknown>
Date: Sat, 2 Oct 2004 07:34:38 +0000
Subject: [PATCH] [project @ 2004-10-02 07:34:38 by dons] Bind raiseSignal to
 genericRaise, on OpenBSD only, atm.

---
 System/Posix/Signals.hsc |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index db68d28..ee40238 100644
--- a/System/Posix/Signals.hsc
+++ b/System/Posix/Signals.hsc
@@ -287,8 +287,13 @@ foreign import ccall unsafe "killpg"
 raiseSignal :: Signal -> IO ()
 raiseSignal sig = throwErrnoIfMinus1_ "raiseSignal" (c_raise sig)
 
+#if defined(__GLASGOW_HASKELL__) && defined(openbsd_TARGET_OS)
+foreign import ccall unsafe "genericRaise"
+  c_raise :: CInt -> IO CInt
+#else
 foreign import ccall unsafe "raise"
   c_raise :: CInt -> IO CInt
+#endif
 
 #ifdef __GLASGOW_HASKELL__
 data Handler = Default
-- 
1.7.10.4