Add autoincrement option to dialect

2024-01-08 22:10:14 +01:00 · 2024-01-08 22:10:14 +01:00 · d53afd905e
commit d53afd905e
parent c997e3196c
3 changed files with 8 additions and 2 deletions
--- a/tools/Language/SQL/SimpleSQL/SQL2011Schema.lhs
+++ b/tools/Language/SQL/SimpleSQL/SQL2011Schema.lhs
@ -334,7 +334,7 @@ todo: constraint characteristics
 >        [TableColumnDef $ ColumnDef (Name Nothing "a") (TypeName [Name Nothing "int"]) Nothing
 >         [ColConstraintDef Nothing (ColPrimaryKeyConstraint False)]])

->     ,(TestStatement ansi2011
+>     ,(TestStatement ansi2011 { diAutoincrement = True }
 >       "create table t (a int primary key autoincrement);"
 >      $ CreateTable [Name Nothing "t"]
 >        [TableColumnDef $ ColumnDef (Name Nothing "a") (TypeName [Name Nothing "int"]) Nothing