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 =
> ColConstraintDef > ColConstraintDef
> <$> (optionMaybe (keyword_ "constraint" *> names)) > <$> (optionMaybe (keyword_ "constraint" *> names))
> <*> (notNull <|> unique <|> primaryKey <|> check <|> references) > <*> (nullable <|> notNull <|> unique <|> primaryKey <|> check <|> references)
> where > where
> nullable = ColNullableConstraint <$ keyword "null"
> notNull = ColNotNullConstraint <$ keywords_ ["not", "null"] > notNull = ColNotNullConstraint <$ keywords_ ["not", "null"]
> unique = ColUniqueConstraint <$ keyword_ "unique" > unique = ColUniqueConstraint <$ keyword_ "unique"
> primaryKey = ColPrimaryKeyConstraint <$ keywords_ ["primary", "key"] > 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) > deriving (Eq,Show,Read,Data,Typeable)
> data ColConstraint = > data ColConstraint =
> ColNotNullConstraint > ColNullableConstraint
> | ColNotNullConstraint
> | ColUniqueConstraint > | ColUniqueConstraint
> | ColPrimaryKeyConstraint > | ColPrimaryKeyConstraint
> | ColReferencesConstraint [Name] (Maybe Name) > | ColReferencesConstraint [Name] (Maybe Name)