summaryrefslogtreecommitdiff
path: root/src/mono_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
commit77f1c289bcb9228ca9605913316405c7cb63fecc (patch)
tree37d9f6d28314bc020e87c05ec9e7826b5e647d44 /src/mono_print.sml
parentc936b6f87a1f30ff1aa12dfe968c5e80a04550e1 (diff)
Pushing policies through
Diffstat (limited to 'src/mono_print.sml')
-rw-r--r--src/mono_print.sml9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml
index d1f5fc27..50c4717a 100644
--- a/src/mono_print.sml
+++ b/src/mono_print.sml
@@ -412,6 +412,12 @@ fun p_datatype env (x, n, cons) =
cons]
end
+fun p_policy env pol =
+ case pol of
+ PolQuery e => box [string "query",
+ space,
+ p_exp env e]
+
fun p_decl env (dAll as (d, _) : decl) =
case d of
DDatatype x => box [string "datatype",
@@ -506,6 +512,9 @@ fun p_decl env (dAll as (d, _) : decl) =
string "=",
space,
p_exp env e2]
+ | DPolicy p => box [string "policy",
+ space,
+ p_policy env p]
fun p_file env file =