From ff65b55f4096f2d024250d0a71db9d9cc8130c09 Mon Sep 17 00:00:00 2001
From: Ross Paterson <ross@soi.city.ac.uk>
Date: Fri, 29 Sep 2006 10:27:43 +0000
Subject: [PATCH] Hugs only: unbreak typeRepKey

---
 Data/Typeable.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 26623d7..d187296 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -164,6 +164,7 @@ data TyCon = TyCon !Key String
 
 instance Eq TyCon where
   (TyCon t1 _) == (TyCon t2 _) = t1 == t2
+#endif
 
 -- | Returns a unique integer associated with a 'TypeRep'.  This can
 -- be used for making a mapping ('Data.IntMap.IntMap') with TypeReps
@@ -177,7 +178,6 @@ instance Eq TyCon where
 --
 typeRepKey :: TypeRep -> IO Int
 typeRepKey (TypeRep (Key i) _ _) = return i
-#endif
 
 	-- 
 	-- let fTy = mkTyCon "Foo" in show (mkTyConApp (mkTyCon ",,")
-- 
1.7.10.4