From: ross <unknown>
Date: Mon, 12 May 2003 08:55:53 +0000 (+0000)
Subject: [project @ 2003-05-12 08:55:53 by ross]
X-Git-Tag: nhc98-1-18-release~657
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d2be8aaf706b32576099bb38f75409c3e661e731;p=haskell-directory.git

[project @ 2003-05-12 08:55:53 by ross]
remove #ifndef __HUGS__
---

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)