From df8eea45a9ba38963b5bcc58b4e6439c055524e4 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 7 Sep 2008 14:30:32 -0400
Subject: Remove need to mention table name in expressions for UPDATE and
 DELETE

---
 lib/basis.urs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lib/basis.urs')

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
 
 
-- 
cgit v1.2.3