[project @ 2001-08-04 06:11:24 by ken]

[ghc-hetmet.git] / ghc / lib / std / PrelCTypesISO.lhs

diff --git a/ghc/lib/std/PrelCTypesISO.lhs b/ghc/lib/std/PrelCTypesISO.lhs
index dd2204c..6e430aa 100644 (file)
--- a/ghc/lib/std/PrelCTypesISO.lhs
+++ b/ghc/lib/std/PrelCTypesISO.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelCTypesISO.lhs,v 1.2 2001/01/12 15:48:09 simonmar Exp $
+% $Id: PrelCTypesISO.lhs,v 1.6 2001/05/18 16:54:05 simonmar Exp $
 %
 % (c) The FFI task force, 2000
 %
@@ -10,6 +10,8 @@ types. Like CTypes, this is a cool hack...
 #include "cbits/CTypes.h"
 
 \begin{code}
+{-# OPTIONS -fno-implicit-prelude #-}
+
 module PrelCTypesISO
        ( -- Integral types, instances of: Eq, Ord, Num, Read, Show, Enum,
          -- Typeable, Storable, Bounded, Real, Integral, Bits
@@ -24,10 +26,15 @@ module PrelCTypesISO
 \end{code}
 
 \begin{code}
+import PrelBase
+import PrelFloat
+import PrelEnum
+import PrelReal
+import PrelShow
+import PrelRead
+import PrelNum
 import PrelBase        ( unsafeCoerce# )
-import PrelReal        ( Integral(toInt) )
 import PrelBits        ( Bits(..) )
-import PrelNum ( Num(fromInt) )
 import PrelInt ( Int8,  Int16,  Int32,  Int64  )
 import PrelWord        ( Word8, Word16, Word32, Word64 )
 \end{code}
@@ -50,7 +57,7 @@ INTEGRAL_TYPE(CSigAtomic,tyConCSigAtomic,"CSigAtomic",HTYPE_SIG_ATOMIC_T)
 "fromIntegral/CSigAtomic->a" fromIntegral = \(CSigAtomic x) -> fromIntegral x
  #-}
 
-NUMERIC_TYPE(CClock,tyConCClock,"CClock",HTYPE_CLOCK_T)
+INTEGRAL_TYPE(CClock,tyConCClock,"CClock",HTYPE_CLOCK_T)
 INTEGRAL_TYPE(CTime,tyConCTime,"CTime",HTYPE_TIME_T)
 
 -- TODO: Instances. But which...?  :-}