Commit 0bb88761 authored by Guillaume Melquiond's avatar Guillaume Melquiond

Escape text in transformation descriptions.

parent af8c5211
......@@ -1651,7 +1651,7 @@ let sanitize_markup x =
let string_of_desc desc =
let print_trans_desc fmt (x,r) =
fprintf fmt "@[<hov 2>%s@\n%a@]" x Pp.formatted r
in Pp.string_of print_trans_desc desc
in escape_text (Pp.string_of print_trans_desc desc)
let () =
let transformations =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment