@@ -78,7 +78,7 @@ updateP = do
7878
7979constraintP :: Parser DatabaseExpr
8080constraintP = do
81− reservedOp "constraint"
81+ reservedOp "constraint" <|> reservedOp "foreign key"
8282 constraintName <- identifier
8383 subset <- relExprP
8484 reservedOp "in"
@@ -94,7 +94,7 @@ keyP = do
9494 uniquenessExpr <- relExprP
9595 let newIncDep = inclusionDependencyForKey uniquenessAttrNames uniquenessExpr
9696 return $ AddInclusionDependency (T.pack keyName) newIncDep
97−
97+
9898attributeAssignmentP :: Parser (String, Atom)
9999attributeAssignmentP = do
100100 attrName <- identifier