[derive Eq for Igor2.Data.Rules.Rules
Helmut Grohne <grohne@cs.uni-bonn.de>**20150108152625
 Ignore-this: 1b7c58685375026a8aeb0fa2e0a68c9e
] hunk ./src/Igor2/Data/Rules.hs 67
-data Rule = R {lhs :: LHS, rhs :: RHS} deriving(Ord)
-
-instance Eq Rule where
-    (==) a b = (&&) (((==) `on` lhs) a b) (((==) `on` rhs) a b)
+data Rule = R {lhs :: LHS, rhs :: RHS} deriving (Eq, Ord)