From: simonmar <unknown>
Date: Fri, 12 Jan 2001 17:38:27 +0000 (+0000)
Subject: [project @ 2001-01-12 17:38:27 by simonmar]
X-Git-Tag: Approximately_9120_patches~2924
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=af58ba6db3cfc450c4474af154d3d2e7a3167fdd;p=ghc-hetmet.git

[project @ 2001-01-12 17:38:27 by simonmar]
need Integral CClock too.
---

diff --git a/ghc/lib/std/PrelCTypesISO.lhs b/ghc/lib/std/PrelCTypesISO.lhs
index dd2204c..0b9b3a4 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.3 2001/01/12 17:38:27 simonmar Exp $
 %
 % (c) The FFI task force, 2000
 %
@@ -50,7 +50,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...?  :-}