From: panne <unknown>
Date: Sun, 13 Jun 2004 17:16:40 +0000 (+0000)
Subject: [project @ 2004-06-13 17:16:40 by panne]
X-Git-Tag: nhc98-1-18-release~311
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9bc25029ee43b36194a6003dded9a8d800a8a07a;p=ghc-base.git

[project @ 2004-06-13 17:16:40 by panne]
The FFI report does not mention that CClock and CTime have instances for
Bounded, Real, Integral, and Bits.
---

diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs
index 9816f12..8a09e44 100644
--- a/Foreign/C/Types.hs
+++ b/Foreign/C/Types.hs
@@ -154,8 +154,8 @@ INTEGRAL_TYPE(CSigAtomic,tyConCSigAtomic,"CSigAtomic",HTYPE_SIG_ATOMIC_T)
 "fromIntegral/CSigAtomic->a" fromIntegral = \(CSigAtomic x) -> fromIntegral x
  #-}
 
-INTEGRAL_TYPE(CClock,tyConCClock,"CClock",HTYPE_CLOCK_T)
-INTEGRAL_TYPE(CTime,tyConCTime,"CTime",HTYPE_TIME_T)
+NUMERIC_TYPE(CClock,tyConCClock,"CClock",HTYPE_CLOCK_T)
+NUMERIC_TYPE(CTime,tyConCTime,"CTime",HTYPE_TIME_T)
 
 -- FIXME: Implement and provide instances for Eq and Storable
 data CFile = CFile