From 26cb781c1a14407f01fc966a8cf9cde17d4faf0d Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Thu, 24 Jul 2003 14:20:23 +0000
Subject: [PATCH] [project @ 2003-07-24 14:20:23 by panne] Quick fix from Ross
 to get the Hugs builds working again. I'm not sure what the
 right fix is, e.g. is moving sameType to Data.Types enough?

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

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 3ed5850..cc45ee7 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -244,8 +244,8 @@ cast x = r
 
 -- | Test for type equivalence
 sameType :: (Typeable a, Typeable b) => TypeVal a -> TypeVal b -> Bool
-sameType (_::a->()) (_::b->()) = typeOf (undefined::a) ==
-                                 typeOf (undefined::b) 
+sameType tva tvb = typeOf (undefinedType tva) ==
+                   typeOf (undefinedType tvb)
 
 
 -------------------------------------------------------------
-- 
1.7.10.4