Escape unrecognized identifiers as they may contain '<' or '>'.

0bda4944 · Guillaume Melquiond · 39ffe0f5 · 0bda4944
Commit 0bda4944 authored Nov 29, 2017 by Guillaume Melquiond
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/why3doc/doc_lexer.mll src/why3doc/doc_lexer.mll +1 -1

No files found.
--- a/src/why3doc/doc_lexer.mll
+++ b/src/why3doc/doc_lexer.mll
@@ -74,7 +74,7 @@
              Doc_def.pp_locate id Pp.html_string s
      with Not_found ->
        (* otherwise, just print it *)
-        pp_print_string fmt s
+        Pp.html_string fmt s
    end

  type empty_line = PrevEmpty | CurrEmpty | NotEmpty