Mercurial > urweb

diff src/urweb.grm @ 1076:dcf98ae3c48d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow same constructor shorthand for 'view' sig items as for 'table'
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Dec 2009 11:11:49 -0500
parents 0657e5adc938
children 8d3aa6c7cee0
line wrap: on
line diff
--- a/src/urweb.grm	Tue Dec 15 10:19:05 2009 -0500
+++ b/src/urweb.grm	Tue Dec 15 11:11:49 2009 -0500
@@ -703,7 +703,7 @@
        | VIEW SYMBOL COLON cexp         (let
                                              val loc = s (VIEWleft, cexpright)
                                              val t = (CVar (["Basis"], "sql_view"), loc)
-                                             val t = (CApp (t, cexp), loc)
+                                             val t = (CApp (t, entable cexp), loc)
                                          in
                                              (SgiVal (SYMBOL, t), loc)
                                          end)