From 074c7f8513e2058531c66bfd50eae259cd35b005 Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Fri, 27 Feb 2004 14:48:16 +0000
Subject: [PATCH] [project @ 2004-02-27 14:48:16 by malcolm] To make it
 compile with nhc98, #ifdef out the Typeable[12] instances.

---
 Data/Typeable.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)) 
-- 
1.7.10.4