Mercurial > urweb

diff src/expl_print.sml @ 1864:1aa9629e3a4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow [where con] to descend within submodule structure; open submodule constraints while checking later signature items
author Adam Chlipala <adam@chlipala.net>
date Mon, 19 Aug 2013 12:25:32 -0400
parents b4480a56cab7
children 403f0cc65b9c
line wrap: on
line diff
--- a/src/expl_print.sml	Sat Aug 10 10:13:40 2013 -0400
+++ b/src/expl_print.sml	Mon Aug 19 12:25:32 2013 -0400
@@ -569,13 +569,13 @@
                                          string ":",
                                          space,
                                          p_sgn (E.pushStrNamed env x n sgn) sgn']
-      | SgnWhere (sgn, x, c) => box [p_sgn env sgn,
+      | SgnWhere (sgn, ms, x, c) => box [p_sgn env sgn,
                                      space,
                                      string "where",
                                      space,
                                      string "con",
                                      space,
-                                     string x,
+                                     p_list_sep (string ".") string (ms @ [x]),
                                      space,
                                      string "=",
                                      space,