Mercurial > urweb

diff src/elab_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 403f0cc65b9c
line wrap: on
line diff
--- a/src/elab_print.sml	Sat Aug 10 10:13:40 2013 -0400
+++ b/src/elab_print.sml	Mon Aug 19 12:25:32 2013 -0400
@@ -680,17 +680,17 @@
                                          string ":",
                                          space,
                                          p_sgn (E.pushStrNamedAs env x n sgn) sgn']
-      | SgnWhere (sgn, x, c) => box [p_sgn env sgn,
-                                     space,
-                                     string "where",
-                                     space,
-                                     string "con",
-                                     space,
-                                     string x,
-                                     space,
-                                     string "=",
-                                     space,
-                                     p_con env c]
+      | SgnWhere (sgn, ms, x, c) => box [p_sgn env sgn,
+					 space,
+					 string "where",
+					 space,
+					 string "con",
+					 space,
+					 p_list_sep (string ".") string (ms @ [x]),
+					 space,
+					 string "=",
+					 space,
+					 p_con env c]
       | SgnProj (m1, ms, x) =>
         let
             val m1x = #1 (E.lookupStrNamed env m1)