git.iko.soy/project-m36
on master help sign in
small fix for ghc 7.6
b0864f4agentm
RelationType.hs+1−1
compare with master
unifiedsplit
@@ -19,7 +19,7 @@ type Attributes = M.Map AttributeName Attribute --attributes keys by attribute n
19type RelationTupleSet = HS.HashSet RelationTuple
19type RelationTupleSet = HS.HashSet RelationTuple
20
20
21instance Hash.Hashable RelationTuple where
21instance Hash.Hashable RelationTuple where
22− hash tup = Hash.hash $ show tup
22+ hashWithSalt salt tup = Hash.hashWithSalt salt (show tup)
23
23
24data RelationTuple = RelationTuple (M.Map AttributeName Atom) deriving (Eq, Show)
24data RelationTuple = RelationTuple (M.Map AttributeName Atom) deriving (Eq, Show)
25
25