diff options
| author |  Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-30 22:42:23 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-31 00:19:53 +0100 |
| commit | 4c25a0d4af899b43d557a6d2dc1b4291e5f75659 (patch) | |
| tree | b160a70ac7f6b11e0afb0df1424bf66a974e776c /System | |
| parent | 944b05c4aa35378db18cee4fcd4e1f02e67ce645 (diff) | |
Replace `__hsunix_nanosleep` wrapper with CApiFFI
Diffstat (limited to 'System')
| -rw-r--r-- | System/Posix/Unistd.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Unistd.hsc b/System/Posix/Unistd.hsc index 3f2d115..7f79113 100644 --- a/System/Posix/Unistd.hsc +++ b/System/Posix/Unistd.hsc @@ -181,9 +181,9 @@ nanosleep nsecs = do else throwErrno "nanosleep" loop (fromIntegral tv_sec0 :: CTime) (fromIntegral tv_nsec0 :: CTime) -data CTimeSpec +data {-# CTYPE "struct timespec" #-} CTimeSpec -foreign import ccall safe "__hsunix_nanosleep" +foreign import capi safe "HsUnix.h nanosleep" c_nanosleep :: Ptr CTimeSpec -> Ptr CTimeSpec -> IO CInt #endif |