starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

Added (normally defaulted) NULL column constraint

Browse source
This commit is contained in:
Greyson Fischer 2020-04-07 14:25:10 -04:00
parent 8accc62cef
commit bfa1b40b21
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Language/SQL/SimpleSQL/Parse.lhs
View file

@ -1564,8 +1564,9 @@ TODO: change style
> colConstraintDef =
> ColConstraintDef
> <$> (optionMaybe (keyword_ "constraint" *> names))
> <*> (notNull <|> unique <|> primaryKey <|> check <|> references)
> <*> (nullable <|> notNull <|> unique <|> primaryKey <|> check <|> references)
> where
> nullable = ColNullableConstraint <$ keyword "null"
> notNull = ColNotNullConstraint <$ keywords_ ["not", "null"]
> unique = ColUniqueConstraint <$ keyword_ "unique"
> primaryKey = ColPrimaryKeyConstraint <$ keywords_ ["primary", "key"]

3
Language/SQL/SimpleSQL/Syntax.lhs
View file

@ -571,7 +571,8 @@ I'm not sure if this is valid syntax or not.
> deriving (Eq,Show,Read,Data,Typeable)
> data ColConstraint =
> ColNotNullConstraint
> ColNullableConstraint
> | ColNotNullConstraint
> | ColUniqueConstraint
> | ColPrimaryKeyConstraint
> | ColReferencesConstraint [Name] (Maybe Name)