Follow change to FFI decls: Import constructors of newtypes
authorIan Lynagh <igloo@earth.li>
Thu, 20 Oct 2011 23:52:38 +0000 (00:52 +0100)
committerIan Lynagh <igloo@earth.li>
Thu, 20 Oct 2011 23:52:38 +0000 (00:52 +0100)
System/Posix/DynamicLinker/Prim.hsc
System/Posix/Env.hsc
System/Posix/Process.hsc
System/Posix/Signals/Exts.hsc
System/Posix/Terminal.hsc

index 2b11261..2e5409e 100644 (file)
@@ -39,7 +39,7 @@ where
 
 import Data.Bits       ( (.|.) )
 import Foreign.Ptr     ( Ptr, FunPtr, nullPtr )
-import Foreign.C.Types ( CInt )
+import Foreign.C.Types
 import Foreign.C.String        ( CString )
 
 -- RTLD_NEXT madness
index 374d0a8..5f3cbd1 100644 (file)
@@ -29,7 +29,7 @@ module System.Posix.Env (
 #include "HsUnix.h"
 
 import Foreign.C.Error ( throwErrnoIfMinus1_ )
-import Foreign.C.Types ( CInt )
+import Foreign.C.Types
 import Foreign.C.String
 import Foreign.Marshal.Array
 import Foreign.Ptr
index 99c3962..57779ce 100644 (file)
@@ -72,7 +72,7 @@ module System.Posix.Process (
 
 import Foreign.C.Error
 import Foreign.C.String
-import Foreign.C.Types ( CInt, CClock )
+import Foreign.C.Types
 import Foreign.Marshal.Alloc ( alloca, allocaBytes )
 import Foreign.Marshal.Array ( withArray0 )
 import Foreign.Marshal.Utils ( withMany )
index 4b466f1..5dece59 100644 (file)
@@ -30,7 +30,7 @@ module System.Posix.Signals.Exts (
 
   ) where
 
-import Foreign.C ( CInt )
+import Foreign.C
 import System.Posix.Signals
 
 #ifdef __HUGS__
index 3685589..c861a3f 100644 (file)
@@ -81,7 +81,7 @@ import Foreign.C.Error ( errnoToIOError, throwErrnoIfMinus1,
 import Foreign.C.Error ( eNOSYS )
 #endif
 import Foreign.C.String ( CString, peekCString, withCString )
-import Foreign.C.Types ( CInt )
+import Foreign.C.Types
 import Foreign.ForeignPtr ( ForeignPtr, withForeignPtr, mallocForeignPtrBytes )
 import Foreign.Marshal.Alloc ( alloca )
 import Foreign.Marshal.Utils ( copyBytes )