Mercurial > urweb

diff lib/ur/basis.urs @ 658:81c5c2674215

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update old Ur/Web library section, before adding new stuff
author Adam Chlipala <adamc@hcoop.net>
date Thu, 12 Mar 2009 11:56:10 -0400
parents e68de2a5506b
children b0c1a46b1f15
line wrap: on
line diff
--- a/lib/ur/basis.urs	Thu Mar 12 11:36:27 2009 -0400
+++ b/lib/ur/basis.urs	Thu Mar 12 11:56:10 2009 -0400
@@ -128,12 +128,12 @@
                  -> grouped ::: {{Type}}
                  -> selectedFields ::: {{Type}}
                  -> selectedExps ::: {Type}
-                 -> {From : $(map (fn fields :: {Type} => sql_table fields) tables),
+                 -> {From : $(map sql_table tables),
                      Where : sql_exp tables [] [] bool,
                      GroupBy : sql_subset tables grouped,
                      Having : sql_exp grouped tables [] bool,
                      SelectFields : sql_subset grouped selectedFields,
-                     SelectExps : $(map (fn (t :: Type) => sql_exp grouped tables [] t) selectedExps) }
+                     SelectExps : $(map (sql_exp grouped tables []) selectedExps) }
                  -> sql_query1 tables selectedFields selectedExps
 
 type sql_relop