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/mono_print.sml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/mono_print.sml')

diff --git a/src/mono_print.sml b/src/mono_print.sml
index ffc1d4fe..a233b400 100644
--- a/src/mono_print.sml
+++ b/src/mono_print.sml
@@ -438,6 +438,13 @@ fun p_decl env (dAll as (d, _) : decl) =
       | DSequence s => box [string "(* SQL sequence ",
                             string s,
                             string "*)"]
+      | DView (s, _, e) => box [string "(* SQL view ",
+                                string s,
+                                space,
+                                string "as",
+                                space,
+                                p_exp env e,
+                                string "*)"]
       | DDatabase {name, expunge, initialize} => box [string "database",
                                                       space,
                                                       string name,
-- 
cgit v1.2.3