[project @ 2003-07-24 14:20:23 by panne]
authorpanne <unknown>
Thu, 24 Jul 2003 14:20:23 +0000 (14:20 +0000)
committerpanne <unknown>
Thu, 24 Jul 2003 14:20:23 +0000 (14:20 +0000)
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?

libraries/base/Data/Typeable.hs

index 3ed5850..cc45ee7 100644 (file)
@@ -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)
 
 
 -------------------------------------------------------------