diff options
Diffstat (limited to 'System/Posix')
-rw-r--r-- | System/Posix/Process.hsc | 13 | ||||
-rw-r--r-- | System/Posix/Terminal.hsc | 10 | ||||
-rw-r--r-- | System/Posix/Unistd.hsc | 7 |
3 files changed, 22 insertions, 8 deletions
diff --git a/System/Posix/Process.hsc b/System/Posix/Process.hsc index 8093c66..6e6e9e0 100644 --- a/System/Posix/Process.hsc +++ b/System/Posix/Process.hsc @@ -37,8 +37,7 @@ module System.Posix.Process ( createSession, -- ** Process times - ProcessTimes(elapsedTime, systemTime, userTime, - childSystemTime, childUserTime), + ProcessTimes(..), getProcessTimes, -- ** Scheduling priority @@ -61,8 +60,14 @@ module System.Posix.Process ( #include "HsUnix.h" import GHC.Conc ( forkProcessPrim ) -import Foreign -import Foreign.C +import Foreign.C.Error +import Foreign.C.String ( CString, withCString ) +import Foreign.C.Types ( CInt, CClock ) +import Foreign.Marshal.Alloc ( alloca, allocaBytes ) +import Foreign.Marshal.Array ( withArray0 ) +import Foreign.Marshal.Utils ( withMany ) +import Foreign.Ptr ( Ptr, nullPtr ) +import Foreign.Storable ( Storable(..) ) import System.IO import System.IO.Error import System.Exit diff --git a/System/Posix/Terminal.hsc b/System/Posix/Terminal.hsc index f811929..e307200 100644 --- a/System/Posix/Terminal.hsc +++ b/System/Posix/Terminal.hsc @@ -70,8 +70,14 @@ module System.Posix.Terminal ( import Data.Bits import Data.Char -import Foreign -import Foreign.C +import Foreign.C.Error ( throwErrnoIfMinus1, throwErrnoIfMinus1_, throwErrnoIfNull ) +import Foreign.C.String ( CString, peekCString ) +import Foreign.C.Types ( CInt ) +import Foreign.ForeignPtr ( ForeignPtr, withForeignPtr, mallocForeignPtrBytes ) +import Foreign.Marshal.Utils ( copyBytes ) +import Foreign.Ptr ( Ptr, nullPtr, plusPtr ) +import Foreign.Storable ( Storable(..) ) +import System.IO.Unsafe ( unsafePerformIO ) import System.Posix.Types -- ----------------------------------------------------------------------------- diff --git a/System/Posix/Unistd.hsc b/System/Posix/Unistd.hsc index e36e157..73c689b 100644 --- a/System/Posix/Unistd.hsc +++ b/System/Posix/Unistd.hsc @@ -48,8 +48,11 @@ module System.Posix.Unistd ( #include "HsUnix.h" -import Foreign -import Foreign.C +import Foreign.C.Error ( throwErrnoIfMinus1, throwErrnoIfMinus1_ ) +import Foreign.C.String ( peekCString ) +import Foreign.C.Types ( CInt, CUInt, CLong ) +import Foreign.Marshal.Alloc ( allocaBytes ) +import Foreign.Ptr ( Ptr, plusPtr ) import System.Posix.Types import System.Posix.Internals |