@@ -19,7 +19,7 @@ type Attributes = M.Map AttributeName Attribute --attributes keys by attribute n
1919type RelationTupleSet = HS.HashSet RelationTuple
2020
2121instance Hash.Hashable RelationTuple where
22− hash tup = Hash.hash $ show tup
22+ hashWithSalt salt tup = Hash.hashWithSalt salt (show tup)
2323
2424data RelationTuple = RelationTuple (M.Map AttributeName Atom) deriving (Eq, Show)
2525