From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Mon, 16 Mar 2009 12:56:51 +0000 (+0000)
Subject: Fix layout to comply with H'98.
X-Git-Tag: 2009-06-25~49
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4b5c53563ca009ccf57fc25f855aee1ca631c375;p=ghc-base.git

Fix layout to comply with H'98.
Also, configure correctly for nhc98, to avoid win32 code.
---

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