@@ -261,7 +261,7 @@ matrixRelation :: Int -> Int -> Either RelationalError Relation
261matrixRelation attributeCount tupleCount = do
261matrixRelation attributeCount tupleCount = do
262 let attrs = A.attributesFromList $ map (\c-> Attribute (show c) IntAtomType) [0 .. attributeCount-1]
262 let attrs = A.attributesFromList $ map (\c-> Attribute (show c) IntAtomType) [0 .. attributeCount-1]
263 tuple tupleX = RelationTuple attrs (V.generate attributeCount (\_ -> IntAtom tupleX))
263 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]
265 mkRelation attrs tupleSet
265 mkRelation attrs tupleSet