[project @ 2003-08-22 16:38:51 by sof]

[ghc-hetmet.git] / ghc / rts / hooks / PatErrorHdr.c

diff --git a/ghc/rts/hooks/PatErrorHdr.c b/ghc/rts/hooks/PatErrorHdr.c
index 633a982..eb39b95 100644 (file)
--- a/ghc/rts/hooks/PatErrorHdr.c
+++ b/ghc/rts/hooks/PatErrorHdr.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PatErrorHdr.c,v 1.2 1998/12/02 13:29:15 simonm Exp $
+ * $Id: PatErrorHdr.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
  *
  * User-overridable RTS hooks.
  *
@@ -7,6 +7,10 @@
 
 #include "Rts.h"
 
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
 void
 PatErrorHdrHook (long fd)
 {