diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-07 14:07:10 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-07 14:07:10 -0400 |
commit | a034349c535b054c9d31beb4e1133f8cd0b68c5a (patch) | |
tree | 3c2892afafe8179b14dca536dcd0b0da34165b96 /lib/basis.urs | |
parent | 071f5b9a8c042414e427d72142c078a64cf9b0d7 (diff) |
Parsing INSERT
Diffstat (limited to 'lib/basis.urs')
-rw-r--r-- | lib/basis.urs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index ff5c2163..13bb1de1 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -205,7 +205,8 @@ val dml : dml -> transaction unit val insert : fields ::: {Type} -> sql_table fields - -> $fields + -> $(fold (fn nm (t :: Type) acc => [nm] ~ acc => + [nm = sql_exp [T = fields] [] [] t] ++ acc) [] fields) -> dml val update : changed ::: {Type} -> unchanged ::: {Type} -> changed ~ unchanged |