Explifying type classes

1 files changed, 10 insertions, 0 deletions

diff --git a/src/expl_print.sml b/src/expl_print.sml
index d3638d18..f854c03d 100644
--- a/src/expl_print.sml
+++ b/src/expl_print.sml
@@ -49,6 +49,9 @@ fun p_kind' par (k, _) =
       | KName => string "Name"
       | KRecord k => box [string "{", p_kind k, string "}"]
       | KUnit => string "Unit"
+      | KTuple ks => box [string "(",
+                          p_list_sep (box [space, string "*", space]) p_kind ks,
+                          string ")"]
 
 and p_kind k = p_kind' false k
 
@@ -147,6 +150,13 @@ fun p_con' par env (c, _) =
                                               p_con env c2])
       | CFold _ => string "fold"
       | CUnit => string "()"
+
+      | CTuple cs => box [string "(",
+                          p_list (p_con env) cs,
+                          string ")"]
+      | CProj (c, n) => box [p_con env c,
+                             string ".",
+                             string (Int.toString n)]
         
 and p_con env = p_con' false env