eliminate double tuple verification in matrixRelation
commit4d59a8c7db6499bf8b18696ad2858ea4a49ab502
authorAgentM <agentm@themactionfaction.com>
dateSun 3 May 2015, 15:37 (11 years ago)
parent07f13ed
ProjectM36/Relation.hs+1−1
@@ -261,7 +261,7 @@ matrixRelation :: Int -> Int -> Either RelationalError Relation
261261matrixRelation attributeCount tupleCount = do
262262 let attrs = A.attributesFromList $ map (\c-> Attribute (show c) IntAtomType) [0 .. attributeCount-1]
263263 tuple tupleX = RelationTuple attrs (V.generate attributeCount (\_ -> IntAtom tupleX))
264− tupleSet <- mkTupleSet attrs $ map (\c -> tuple c) [0 .. tupleCount]
264+ tupleSet = HS.fromList $ map (\c -> tuple c) [0 .. tupleCount]
265265 mkRelation attrs tupleSet
266266
267267