From d2be8aaf706b32576099bb38f75409c3e661e731 Mon Sep 17 00:00:00 2001 From: ross Date: Mon, 12 May 2003 08:55:53 +0000 Subject: [PATCH] [project @ 2003-05-12 08:55:53 by ross] remove #ifndef __HUGS__ --- Foreign/C/Types.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs index 89251d3..944cf6d 100644 --- a/Foreign/C/Types.hs +++ b/Foreign/C/Types.hs @@ -20,9 +20,7 @@ module Foreign.C.Types , CShort(..), CUShort(..), CInt(..), CUInt(..) , CLong(..), CULong(..) , CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..) -#ifndef __HUGS__ , CLLong(..), CULLong(..) -#endif -- Numeric types, instances of: Eq, Ord, Num, Read, Show, Enum, -- Typeable, Storable , CClock(..), CTime(..) @@ -85,10 +83,8 @@ INTEGRAL_TYPE(CUInt,tyConCUInt,"CUInt",HTYPE_UNSIGNED_INT) INTEGRAL_TYPE(CLong,tyConCLong,"CLong",HTYPE_LONG) INTEGRAL_TYPE(CULong,tyConCULong,"CULong",HTYPE_UNSIGNED_LONG) -#ifndef __HUGS__ INTEGRAL_TYPE(CLLong,tyConCLLong,"CLLong",HTYPE_LONG_LONG) INTEGRAL_TYPE(CULLong,tyConCULLong,"CULLong",HTYPE_UNSIGNED_LONG_LONG) -#endif {-# RULES "fromIntegral/a->CChar" fromIntegral = \x -> CChar (fromIntegral x) -- 1.7.10.4