Add non-comma separated constraint dialect toggle

2024-01-09 00:25:39 +01:00 · 2024-01-09 00:25:39 +01:00 · f180d1070b
commit f180d1070b
parent 51157d502e
3 changed files with 9 additions and 2 deletions
--- a/tools/Language/SQL/SimpleSQL/SQL2011Schema.lhs
+++ b/tools/Language/SQL/SimpleSQL/SQL2011Schema.lhs
@ -651,7 +651,7 @@ defintely skip
 >                 DefaultReferentialAction DefaultReferentialAction
 >        ])

->     ,(TestStatement ansi2011
+>     ,(TestStatement ansi2011 { diNonCommaSeparatedConstraints = True }
 >       "create table t (a int, b int,\n\
 >       \                foreign key (a) references u(c)\n\
 >       \                foreign key (b) references v(d));"