diff options
author | 2008-09-07 14:30:32 -0400 | |
---|---|---|
committer | 2008-09-07 14:30:32 -0400 | |
commit | df8eea45a9ba38963b5bcc58b4e6439c055524e4 (patch) | |
tree | 8a352989a67720ba4146c04fe75dc4503d023e45 /lib | |
parent | a8bc278b2a46d93bec4bf88cd7e56f12a253f061 (diff) |
Remove need to mention table name in expressions for UPDATE and DELETE
Diffstat (limited to 'lib')
-rw-r--r-- | lib/basis.urs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index a095a57e..91933254 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -206,19 +206,19 @@ 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 - -> $(fold (fn nm (t :: Type) acc => [nm] ~ acc => - [nm = sql_exp [T = changed ++ unchanged] [] [] t] ++ acc) [] changed) +val update : changed :: {Type} -> unchanged ::: {Type} -> changed ~ unchanged -> sql_table (changed ++ unchanged) - -> sql_exp [T = changed ++ unchanged] [] [] bool + -> $(fold (fn nm (t :: Type) acc => [nm] ~ acc => + [nm = sql_exp [] [] (changed ++ unchanged) t] ++ acc) [] changed) + -> sql_exp [] [] (changed ++ unchanged) bool -> dml val delete : fields ::: {Type} -> sql_table fields - -> sql_exp [T = fields] [] [] bool + -> sql_exp [] [] fields bool -> dml |