Changeset 5493 for src/Pugs/Internals.hs

Timestamp:

07/12/05 14:34:10 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7501

Message:

* identity test for functions should now pass; Eq and Ord

for function and dynamics redefined to base on 'show'.

Files:

• src/Pugs/Internals.hs (modified) (1 diff)

src/Pugs/Internals.hs

@@ -134 +134 @@
         typA = show $ typeOf (undefined :: a)
         typB = show $ typeOf (undefined :: b)
-instance Eq (a -> b) where
-    _ == _ = False
-instance Ord (a -> b) where
-    compare _ _ = LT
+instance (Typeable a, Typeable b) => Eq (a -> b) where
+    x == y = show x == show y
+instance (Typeable a, Typeable b) => Ord (a -> b) where
+    compare x y = compare (show x) (show y)
 instance Eq Dynamic where
-    _ == _ = False
+    x == y = show x == show y
 instance Ord Dynamic where
-    compare _ _ = LT
+    compare x y = compare (show x) (show y)
 
 internalError :: String -> a