git.iko.soy/project-m36
on master help sign in
create "foreign key" alias for constraint creation
6ea5f34AgentM
TutorialD/Interpreter/DatabaseExpr.hs+2−2
compare with master
unifiedsplit
@@ -78,7 +78,7 @@ updateP = do
78
78
79constraintP :: Parser DatabaseExpr
79constraintP :: Parser DatabaseExpr
80constraintP = do
80constraintP = do
81− reservedOp "constraint"
81+ reservedOp "constraint" <|> reservedOp "foreign key"
82 constraintName <- identifier
82 constraintName <- identifier
83 subset <- relExprP
83 subset <- relExprP
84 reservedOp "in"
84 reservedOp "in"
@@ -94,7 +94,7 @@ keyP = do
94 uniquenessExpr <- relExprP
94 uniquenessExpr <- relExprP
95 let newIncDep = inclusionDependencyForKey uniquenessAttrNames uniquenessExpr
95 let newIncDep = inclusionDependencyForKey uniquenessAttrNames uniquenessExpr
96 return $ AddInclusionDependency (T.pack keyName) newIncDep
96 return $ AddInclusionDependency (T.pack keyName) newIncDep
97−
97+
98attributeAssignmentP :: Parser (String, Atom)
98attributeAssignmentP :: Parser (String, Atom)
99attributeAssignmentP = do
99attributeAssignmentP = do
100 attrName <- identifier
100 attrName <- identifier