From af58ba6db3cfc450c4474af154d3d2e7a3167fdd Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 12 Jan 2001 17:38:27 +0000 Subject: [PATCH] [project @ 2001-01-12 17:38:27 by simonmar] need Integral CClock too. --- ghc/lib/std/PrelCTypesISO.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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...? :-} -- 1.7.10.4