diff src/elab_print.sml @ 754:8688e01ae469

A view query works
author Adam Chlipala <adamc@hcoop.net>
date Tue, 28 Apr 2009 15:04:37 -0400
parents acb8537f58f0
children e2780d2f4afc
line wrap: on
line diff
--- a/src/elab_print.sml	Tue Apr 28 14:02:23 2009 -0400
+++ b/src/elab_print.sml	Tue Apr 28 15:04:37 2009 -0400
@@ -758,6 +758,13 @@
       | DSequence (_, x, n) => box [string "sequence",
                                     space,
                                     p_named x n]
+      | DView (_, x, n, e, _) => box [string "view",
+                                      space,
+                                      p_named x n,
+                                      space,
+                                      string "as",
+                                      space,
+                                      p_exp env e]
       | DClass (x, n, k, c) => box [string "class",
                                     space,
                                     p_named x n,