diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-12-15 11:11:49 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-15 11:11:49 -0500 |
commit | ab13bbf764595fe6c01fcb5fe61bdf464d77f7fe (patch) | |
tree | a6950e374ba47268bc2bc5ee4cb14dd5a6f3d5b1 /src/urweb.grm | |
parent | 6179a09d47c5af4db1ac41d00b8cb7ec36741c3e (diff) |
Allow same constructor shorthand for 'view' sig items as for 'table'
Diffstat (limited to 'src/urweb.grm')
-rw-r--r-- | src/urweb.grm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index afe7be07..00c39b52 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -703,7 +703,7 @@ sgi : CON SYMBOL DCOLON kind ((SgiConAbs (SYMBOL, kind), s (CONleft, | 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) |