summaryrefslogtreecommitdiff
path: root/src/elab_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-04-04 12:29:34 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-04-04 12:29:34 -0400
commit6a326e3bb3eb16e04f3cca082f0dd67278e85785 (patch)
tree37d9f6d28314bc020e87c05ec9e7826b5e647d44 /src/elab_print.sml
parent9615454c1218330fc2cdfa6b72af53400fa2b2c4 (diff)
Pushing policies through
Diffstat (limited to 'src/elab_print.sml')
-rw-r--r--src/elab_print.sml3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml
index 62b5262f..86448659 100644
--- a/src/elab_print.sml
+++ b/src/elab_print.sml
@@ -806,6 +806,9 @@ fun p_decl env (dAll as (d, _) : decl) =
string "=",
space,
p_exp env e2]
+ | DPolicy e1 => box [string "policy",
+ space,
+ p_exp env e1]
and p_str env (str, _) =
case str of