From: panne <unknown>
Date: Thu, 24 Jul 2003 14:20:23 +0000 (+0000)
Subject: [project @ 2003-07-24 14:20:23 by panne]
X-Git-Tag: nhc98-1-18-release~575
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=26cb781c1a14407f01fc966a8cf9cde17d4faf0d;p=ghc-base.git

[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?
---

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