Mercurial > urweb

diff src/source_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 bb942416bf1c
children d6b0ee53dc93
line wrap: on
line diff
--- a/src/source_print.sml	Sat Aug 10 10:13:40 2013 -0400
+++ b/src/source_print.sml	Mon Aug 19 12:25:32 2013 -0400
@@ -505,17 +505,19 @@
                                       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]
+      | SgnWhere (sgn, ms, x, c) => box [p_sgn sgn,
+					 space,
+					 string "where",
+					 space,
+					 string "con",
+					 space,
+					 p_list_sep (string ".")
+						    string (ms @ [x]),
+					 string x,
+					 space,
+					 string "=",
+					 space,
+					 p_con c]
       | SgnProj (m, ms, x) => p_list_sep (string ".") string (m :: ms @ [x])