From 4b5c53563ca009ccf57fc25f855aee1ca631c375 Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Mon, 16 Mar 2009 12:56:51 +0000
Subject: [PATCH] Fix layout to comply with H'98. Also, configure correctly
 for nhc98, to avoid win32 code.

---
 System/Posix/Internals.hs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 8711a2e..5bbdf9c 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -23,7 +23,9 @@
 -- #hide
 module System.Posix.Internals where
 
-#ifndef __NHC__
+#ifdef __NHC__
+#define HTYPE_TCFLAG_T
+#else
 # include "HsBaseConfig.h"
 #endif
 
@@ -245,7 +247,7 @@ tcSetAttr fd fun = do
         -- wrapper which temporarily blocks SIGTTOU around the call, making it
         -- transparent.
         allocaBytes sizeof_sigset_t $ \ p_sigset -> do
-        allocaBytes sizeof_sigset_t $ \ p_old_sigset -> do
+          allocaBytes sizeof_sigset_t $ \ p_old_sigset -> do
              c_sigemptyset p_sigset
              c_sigaddset   p_sigset const_sigttou
              c_sigprocmask const_sig_block p_sigset p_old_sigset
-- 
1.7.10.4