From: malcolm <unknown>
Date: Fri, 27 Feb 2004 14:48:16 +0000 (+0000)
Subject: [project @ 2004-02-27 14:48:16 by malcolm]
X-Git-Tag: nhc98-1-18-release~360
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=074c7f8513e2058531c66bfd50eae259cd35b005;p=ghc-base.git

[project @ 2004-02-27 14:48:16 by malcolm]
To make it compile with nhc98, #ifdef out the Typeable[12] instances.
---

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index d58e1fa..2a835c9 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -488,7 +488,7 @@ class Typeable1 t where
 class Typeable2 t where
   typeOf2 :: t a b -> TyCon
 
-
+#ifndef __NHC__
 -- | Instance for lists
 instance Typeable1 [] where
   typeOf1 _ = typerepTyCon (typeOf (undefined::[()]))
@@ -512,7 +512,7 @@ instance Typeable2 Either where
 -- | Instance for functions
 instance Typeable2 (->) where
   typeOf2 _ = typerepTyCon (typeOf (undefined::() -> ()))
-
+#endif
 
 -- | Cast for * -> *
 cast1 :: (Typeable1 t, Typeable1 t') => c (t a) -> Maybe (c (t' a))