Mercurial > urweb

diff src/expl_env.sml @ 754:8688e01ae469

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
A view query works
author Adam Chlipala <adamc@hcoop.net>
date Tue, 28 Apr 2009 15:04:37 -0400
parents acb8537f58f0
children 0e554bfd6d6a
line wrap: on
line diff
--- a/src/expl_env.sml	Tue Apr 28 14:02:23 2009 -0400
+++ b/src/expl_env.sml	Tue Apr 28 15:04:37 2009 -0400
@@ -312,6 +312,13 @@
         in
             pushENamed env x n t
         end
+      | DView (tn, x, n, _, c) =>
+        let
+            val ct = (CModProj (tn, [], "sql_view"), loc)
+            val ct = (CApp (ct, c), loc)
+        in
+            pushENamed env x n ct
+        end
       | DDatabase _ => env
       | DCookie (tn, x, n, c) =>
         let