Support for DragonFly
authorSimon Marlow <marlowsd@gmail.com>
Mon, 21 Dec 2009 11:07:09 +0000 (11:07 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 21 Dec 2009 11:07:09 +0000 (11:07 +0000)
Not sure where this patch came from, I found it in my validate tree.

System/Posix/Signals.hsc

index 5eb4e5e..454b0dd 100644 (file)
@@ -295,7 +295,7 @@ foreign import ccall unsafe "killpg"
 raiseSignal :: Signal -> IO ()
 raiseSignal sig = throwErrnoIfMinus1_ "raiseSignal" (c_raise sig)
 
-#if defined(__GLASGOW_HASKELL__) && (defined(openbsd_HOST_OS) || defined(freebsd_HOST_OS))
+#if defined(__GLASGOW_HASKELL__) && (defined(openbsd_HOST_OS) || defined(freebsd_HOST_OS) || defined(dragonfly_HOST_OS))
 foreign import ccall unsafe "genericRaise"
   c_raise :: CInt -> IO CInt
 #else