summaryrefslogtreecommitdiff
path: root/src/source_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-06-19 16:35:40 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-06-19 16:35:40 -0400
commite542e7ba2106c5763006e88d90b6834fe9221b85 (patch)
treebf572cb1c2dfec0751f72a61fcfe0a9fd563c933 /src/source_print.sml
parent7a1c5e1780fd3c56d9c591821905bb3b3bbfa50a (diff)
Elaborating 'where'
Diffstat (limited to 'src/source_print.sml')
-rw-r--r--src/source_print.sml13
1 files changed, 12 insertions, 1 deletions
diff --git a/src/source_print.sml b/src/source_print.sml
index fb416a60..c3a333e8 100644
--- a/src/source_print.sml
+++ b/src/source_print.sml
@@ -259,7 +259,18 @@ and p_sgn (sgn, _) =
string ":",
space,
p_sgn sgn']
-
+ | SgnWhere (sgn, x, c) => box [p_sgn sgn,
+ space,
+ string "where",
+ space,
+ string "con",
+ space,
+ string x,
+ space,
+ string "=",
+ space,
+ p_con c]
+
fun p_decl ((d, _) : decl) =
case d of
DCon (x, NONE, c) => box [string "con",