diff src/lacweb.grm @ 225:5ac2cf59b839

Change [sql_field] type to get 'where' test to check again
author Adam Chlipala <adamc@hcoop.net>
date Thu, 21 Aug 2008 13:47:18 -0400
parents cb8a68964ebb
children b0041cc7e5f7
line wrap: on
line diff
--- a/src/lacweb.grm	Thu Aug 21 12:54:09 2008 -0400
+++ b/src/lacweb.grm	Thu Aug 21 13:47:18 2008 -0400
@@ -645,11 +645,6 @@
                                                                      loc))
 
                                              val e = (EVar (["Basis"], "sql_query"), loc)
-                                             val _ = [((CName "GroupBy", loc),
-                                                       (ECApp ((EVar (["Basis"], "sql_subset_all"), loc),
-                                                               (CWild (KRecord (KType, loc), loc), loc)), loc)),
-                                                      ((CName "Having", loc),
-                                                       hopt)]
                                              val re = (ERecord [((CName "From", loc),
                                                                  (ERecord tables, loc)),
                                                                 ((CName "Where", loc),