From 51f2a80dac5c3cd25a27fb5abfdfa50d813ab0b2 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 28 Apr 2009 15:04:37 -0400
Subject: A view query works

---
 src/core_env.sml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/core_env.sml')

diff --git a/src/core_env.sml b/src/core_env.sml
index caf30349..0630fef2 100644
--- a/src/core_env.sml
+++ b/src/core_env.sml
@@ -327,6 +327,13 @@ fun declBinds env (d, loc) =
         in
             pushENamed env x n t NONE s
         end
+      | DView (x, n, s, _, c) =>
+        let
+            val ct = (CFfi ("Basis", "sql_view"), loc)
+            val ct = (CApp (ct, c), loc)
+        in
+            pushENamed env x n ct NONE s
+        end
       | DDatabase _ => env
       | DCookie (x, n, c, s) =>
         let
-- 
cgit v1.2.3