summaryrefslogtreecommitdiff
path: root/src/source_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-28 10:16:50 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-28 10:16:50 -0400
commit3cb644caeed50e5c82778b5ed7c165950655109a (patch)
tree2173bd760a25b12356629888a84ae960f9c1dd80 /src/source_print.sml
parentd8801e05ef2f81f21eb27555b626ee2e52c3365f (diff)
fn-pattern code in but not tested yet; hello compiles
Diffstat (limited to 'src/source_print.sml')
-rw-r--r--src/source_print.sml6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/source_print.sml b/src/source_print.sml
index b4f9bfd3..a16b5bb1 100644
--- a/src/source_print.sml
+++ b/src/source_print.sml
@@ -207,6 +207,12 @@ fun p_pat' par (p, _) =
string "}"]
end
+ | PAnnot (p, t) => box [p_pat p,
+ space,
+ string ":",
+ space,
+ p_con t]
+
and p_pat x = p_pat' false x
fun p_exp' par (e, _) =