blob: b7e1efe76b4e9a05e55c00af8f252591fb6f64e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
$NetBSD: patch-ab,v 1.2 2008/03/17 15:59:05 kristerw Exp $
Patch needed for GHC 6.8. From FreeBSD ports.
--- aclocal.m4.orig 2007-06-16 19:12:11.000000000 +0200
+++ aclocal.m4 2008-01-04 19:37:37.000000000 +0100
@@ -447,6 +447,20 @@
openFd :: Int -> Maybe FDType -> FilePath -> IOMode -> Bool -> Bool -> IO Handle
openFd fd x y z a b = GHC.Handle.openFd fd x b y z a
]]),
+AC_MSG_RESULT([okay])
+IMPORT_WORKAROUND([
+import qualified GHC.Handle ( fdToHandle' )
+import System.IO ( Handle, IOMode )
+import System.Posix.Internals ( FDType )
+import qualified GHC.IOBase ( FD )
+])
+CODE_WORKAROUND([[
+ {-
+ Work around change in the GHC.Handle.fdToHandle' API.
+ -}
+openFd :: GHC.IOBase.FD -> Maybe FDType -> FilePath -> IOMode -> Bool -> Bool -> IO Handle
+openFd fd x y z a b = GHC.Handle.fdToHandle' fd x b y z a
+]]),
AC_MSG_RESULT([failed])
AC_MSG_ERROR([Couldnt figure out how to call GHC.Handle.openFd!])
)
|