$OpenBSD: patch-src_Pugs_Types_hs,v 1.1 2010/09/14 18:58:01 kili Exp $
--- src/Pugs/Types.hs.orig	Wed Dec 16 15:02:44 2009
+++ src/Pugs/Types.hs	Tue Sep 14 20:34:02 2010
@@ -630,8 +630,6 @@ instance (Ord a) => Ord (Tree a) where
     compare _ _ = EQ
 instance Ord (TMVar a) where
     compare x y = compare (addressOf x) (addressOf y)
-instance Eq (TMVar a) where
-    x == y = addressOf x == addressOf y
 instance Show (TMVar a) where
     show = showAddressOf "tmvar"
 
