Mercurial > urweb

diff src/urweb.grm @ 1189:b8cfb05c091d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More informative tag mismatch error message
author Adam Chlipala <adamc@hcoop.net>
date Tue, 16 Mar 2010 16:17:02 -0400
parents ad9829c3c12c
children 61c3139eab12
line wrap: on
line diff
--- a/src/urweb.grm	Tue Mar 16 16:02:54 2010 -0400
+++ b/src/urweb.grm	Tue Mar 16 16:17:02 2010 -0400
@@ -1342,7 +1342,11 @@
                                                  (if ErrorMsg.anyErrors () then
                                                       ()
                                                   else
-                                                      ErrorMsg.errorAt pos "Begin and end tags don't match.";
+                                                      ErrorMsg.errorAt pos ("Begin tag <"
+                                                                            ^ #1 (#1 tag)
+                                                                            ^ "> and end tag </"
+                                                                            ^ et
+                                                                            ^ "> don't match.");
                                                   (EWild, pos))
                                          end)
        | LBRACE eexp RBRACE             (eexp)