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 | a461a7ac0a6f9452a46b96182085a4f5e2fe5e6e (patch) | |
tree | a6950e374ba47268bc2bc5ee4cb14dd5a6f3d5b1 /src | |
parent | e6dcaec66b01e85d4972344b8eea3d7c718a949f (diff) |
Allow same constructor shorthand for 'view' sig items as for 'table'
Diffstat (limited to 'src')
-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) |