@@ -124,7 +124,7 @@ productsRel = case mkRelation attributes tupleSet of
124124 attributes = M.fromList [("P#", Attribute "P#" StringAtomType),
125125 ("PNAME", Attribute "PNAME" StringAtomType),
126126 ("COLOR", Attribute "COLOR" StringAtomType),
127− ("WEIGHT", Attribute "WEIGHT" StringAtomType),
127+ ("WEIGHT", Attribute "WEIGHT" IntAtomType),
128128 ("CITY", Attribute "CITY" StringAtomType)]
129129 tupleSet = HS.fromList $ mkRelationTuples attributes [
130130 M.fromList [("P#", StringAtom "P1"), ("PNAME", StringAtom "Nut"), ("COLOR", StringAtom "Red"), ("WEIGHT", IntAtom 12), ("CITY", StringAtom "London")],