on master help sign in
fix products relation
ad30da8AgentM
RelationExpr.hs+1−1
@@ -124,7 +124,7 @@ productsRel = case mkRelation attributes tupleSet of
124 attributes = M.fromList [("P#", Attribute "P#" StringAtomType),
124 attributes = M.fromList [("P#", Attribute "P#" StringAtomType),
125 ("PNAME", Attribute "PNAME" StringAtomType),
125 ("PNAME", Attribute "PNAME" StringAtomType),
126 ("COLOR", Attribute "COLOR" StringAtomType),
126 ("COLOR", Attribute "COLOR" StringAtomType),
127− ("WEIGHT", Attribute "WEIGHT" StringAtomType),
127+ ("WEIGHT", Attribute "WEIGHT" IntAtomType),
128 ("CITY", Attribute "CITY" StringAtomType)]
128 ("CITY", Attribute "CITY" StringAtomType)]
129 tupleSet = HS.fromList $ mkRelationTuples attributes [
129 tupleSet = HS.fromList $ mkRelationTuples attributes [
130 M.fromList [("P#", StringAtom "P1"), ("PNAME", StringAtom "Nut"), ("COLOR", StringAtom "Red"), ("WEIGHT", IntAtom 12), ("CITY", StringAtom "London")],
130 M.fromList [("P#", StringAtom "P1"), ("PNAME", StringAtom "Nut"), ("COLOR", StringAtom "Red"), ("WEIGHT", IntAtom 12), ("CITY", StringAtom "London")],