[project @ 2003-07-29 12:03:13 by ross]

[ghc-base.git] / System / Posix / Types.hs

diff --git a/System/Posix/Types.hs b/System/Posix/Types.hs
index ce88f2c..7a9d6da 100644 (file)
--- a/System/Posix/Types.hs
+++ b/System/Posix/Types.hs
@@ -10,7 +10,7 @@
 -- Portability :  non-portable (requires POSIX)
 --
 -- POSIX data types: Haskell equivalents of the types defined by the
--- @\<sys/types.h>@ C header on a POSIX system.
+-- @\<sys\/types.h>@ C header on a POSIX system.
 --
 -----------------------------------------------------------------------------
 
@@ -19,11 +19,11 @@
 module System.Posix.Types (
 
   -- * POSIX data types
-  CDev(..), CIno(..), CMode(..), COff(..), CPid(..), CSsize(..),
+  CDev, CIno, CMode, COff, CPid, CSsize,
 
 #ifndef mingw32_TARGET_OS
-  CGid(..), CNlink(..), CSsize(..), CUid(..), CCc(..), CSpeed(..),
-  CTcflag(..),
+  CGid, CNlink, CUid, CCc, CSpeed,
+  CTcflag, CRLim,
 #endif
 
   Fd(..),
@@ -47,7 +47,7 @@ module System.Posix.Types (
 
 import Foreign
 import Foreign.C
-import Data.Dynamic
+import Data.Typeable
 import Data.Bits
 
 #ifdef __GLASGOW_HASKELL__
@@ -58,9 +58,11 @@ import GHC.Real
 import GHC.Prim
 import GHC.Read
 import GHC.Show
+#else
+import Control.Monad
 #endif
 
-#include "Dynamic.h"
+#include "Typeable.h"
 #include "CTypes.h"
 
 NUMERIC_TYPE(CDev,tyConCDev,"CDev",HTYPE_DEV_T)
@@ -82,6 +84,7 @@ INTEGRAL_TYPE(CUid,tyConCUid,"CUid",HTYPE_UID_T)
 NUMERIC_TYPE(CCc,tyConCCc,"CCc",HTYPE_CC_T)
 NUMERIC_TYPE(CSpeed,tyConCSpeed,"CSpeed",HTYPE_SPEED_T)
 INTEGRAL_TYPE(CTcflag,tyConCTcflag,"CTcflag",HTYPE_TCFLAG_T)
+INTEGRAL_TYPE(CRLim,tyConCRlim,"CRLim",HTYPE_RLIM_T)
 #endif
 
 -- ToDo: blksize_t, clockid_t, blkcnt_t, fsblkcnt_t, fsfilcnt_t, id_t, key_t