diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:14:40 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:14:40 -0400 |
| commit | 1701925134c18b814afa186f76857f72cf388fc8 (patch) | |
| tree | 2deff1a47b2cea1272930811f59097735bd47ece /lib | |
| parent | fe35c44cd34ceb2a2f02b27f56bf1607557bb89a (diff) | |
Crud completed
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/basis.urs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index 7fd5dc52..3fe80d38 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -206,10 +206,10 @@ val dml : dml -> transaction unit val insert : fields ::: {Type} -> sql_table fields -> $(fold (fn nm (t :: Type) acc => [nm] ~ acc => - [nm = sql_exp [T = fields] [] [] t] ++ acc) [] fields) + [nm = sql_exp [] [] [] t] ++ acc) [] fields) -> dml -val update : changed ::: {Type} -> unchanged ::: {Type} -> changed ~ unchanged +val update : changed :: {Type} -> unchanged ::: {Type} -> changed ~ unchanged -> $(fold (fn nm (t :: Type) acc => [nm] ~ acc => [nm = sql_exp [T = changed ++ unchanged] [] [] t] ++ acc) [] changed) -> sql_table (changed ++ unchanged) |