Fix layout to comply with H'98.
authorMalcolm.Wallace@cs.york.ac.uk <unknown>
Mon, 16 Mar 2009 12:56:51 +0000 (12:56 +0000)
committerMalcolm.Wallace@cs.york.ac.uk <unknown>
Mon, 16 Mar 2009 12:56:51 +0000 (12:56 +0000)
Also, configure correctly for nhc98, to avoid win32 code.

System/Posix/Internals.hs

index 8711a2e..5bbdf9c 100644 (file)
@@ -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