diff options
author | Ian Lynagh <igloo@earth.li> | 2009-03-04 18:28:36 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2009-03-04 18:28:36 +0000 |
commit | 18ee848f3c7edc80486485d6fe91ff25100a8260 (patch) | |
tree | 7d92790477d172d2d537c7efc5339167c085eb2d /System | |
parent | efab92e400705020e9fa0845b9f1a701b67346fe (diff) |
Tweak an internal detail
We now use an EmptyDataDecl rather than recursive newtype as an
argument to Ptr. As well as being prettier, this also avoids an infinite
loop bug in haddock (trac #3066).
Diffstat (limited to 'System')
-rw-r--r-- | System/Posix/Unistd.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/Unistd.hsc b/System/Posix/Unistd.hsc index 13d3c65..f0cac21 100644 --- a/System/Posix/Unistd.hsc +++ b/System/Posix/Unistd.hsc @@ -156,7 +156,7 @@ nanosleep nsecs = do else throwErrno "nanosleep" loop (fromIntegral tv_sec0 :: CTime) (fromIntegral tv_nsec0 :: CTime) -newtype CTimeSpec = CTimeSpec CTimeSpec +data CTimeSpec foreign import ccall safe "nanosleep" c_nanosleep :: Ptr CTimeSpec -> Ptr CTimeSpec -> IO CInt |