X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelCTypesISO.lhs;h=dbcdcd17a14dbd471d5b8ece363be4c3cde1351b;hb=50027272414438955dbc41696541cbd25da55883;hp=dd2204c72396082731566d09de6c6ac2af8e6ec0;hpb=2087b6e7682cee4c4a4aadc722a3d441b39f7a3b;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelCTypesISO.lhs b/ghc/lib/std/PrelCTypesISO.lhs
index dd2204c..dbcdcd1 100644
--- 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.5 2001/02/22 16:48:24 qrczak Exp $
 %
 % (c) The FFI task force, 2000
 %
@@ -25,9 +25,7 @@ module PrelCTypesISO
 
 \begin{code}
 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 +48,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...?  :-}