Mercurial > urweb

diff src/expl_print.sml @ 193:8a70e2919e86

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Specialization of single-parameter datatypes
author Adam Chlipala <adamc@hcoop.net>
date Fri, 08 Aug 2008 17:55:51 -0400
parents aa54250f58ac
children 0343557355fc
line wrap: on
line diff
--- a/src/expl_print.sml	Fri Aug 08 10:59:06 2008 -0400
+++ b/src/expl_print.sml	Fri Aug 08 17:55:51 2008 -0400
@@ -345,7 +345,7 @@
              p_list_sep (box [space, string "|", space])
                         (fn (x, n, NONE) => if !debug then (string (x ^ "__" ^ Int.toString n))
                                             else string x
-                          | (x, _, SOME t) => box [if !debug then (string (x ^ "__" ^ Int.toString n))
+                          | (x, n, SOME t) => box [if !debug then (string (x ^ "__" ^ Int.toString n))
                                                    else string x, space, string "of", space, p_con env t])
                         cons]
     end