Tweak an internal detail
authorIan Lynagh <igloo@earth.li>
Wed, 4 Mar 2009 18:28:36 +0000 (18:28 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 4 Mar 2009 18:28:36 +0000 (18:28 +0000)
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).

System/Posix/Unistd.hsc
unix.cabal

index 13d3c65..f0cac21 100644 (file)
@@ -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
index 989d465..b3e9ba0 100644 (file)
@@ -47,7 +47,7 @@ Library
         System.Posix.Semaphore
         System.Posix.SharedMem
     build-depends:     base
-    extensions:        CPP, ForeignFunctionInterface
+    extensions:        CPP, ForeignFunctionInterface, EmptyDataDecls
     include-dirs:      include
     includes:       HsUnix.h execvpe.h
     install-includes: