# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1334584428 14400
# Node ID 1584fd8d16dd9bbec08e4316eeb643c6ad248adb
# Parent  d6c45026240de468e5f565bc01cc60efd7bf7730
Simplify types for printing with '-dumpTypes'

diff -r d6c45026240d -r 1584fd8d16dd src/elaborate.sml
--- a/src/elaborate.sml	Mon Apr 16 09:46:42 2012 -0400
+++ b/src/elaborate.sml	Mon Apr 16 09:53:48 2012 -0400
@@ -4684,6 +4684,8 @@
                 open Print.PD
                 open Print
 
+                fun p_con env c = ElabPrint.p_con env (ElabOps.reduceCon env c)
+
                 fun dumpDecl (d, env) =
                     case #1 d of
                         DCon (x, _, k, _) => (print (box [string x,