Normalize whitespaces inside code spans

ocaml-ppx · Jul 22, 2019 · 179e0a5 · 179e0a5
1 parent 6a94892
commit 179e0a5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/Fmt_odoc.ml b/src/Fmt_odoc.ml
@@ -145,7 +145,7 @@ let rec fmt_inline_element : inline_element -> Fmt.t = function
       escape $ str_normalized w
   | `Code_span s ->
       let s = escape_brackets s in
-      hovbox 0 (wrap "[" "]" (str s))
+      hovbox 0 (wrap "[" "]" (str_normalized s))
   | `Raw_markup (lang, s) ->
       let lang =
         match lang with

diff --git a/test/passing/doc_comments.mli.ref b/test/passing/doc_comments.mli.ref
@@ -330,9 +330,9 @@ end
 
 (** {%html:<p>Raw markup</p>%} {%Without language%} {%other:Other language%} *)
 
-(** [Multi
-     Line]
+(** [Multi Line]
 
-    [ A lot of    spaces ]
+    [A lot of spaces]
 
-    [Very looooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong] *)
+    [Very
+    looooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong] *)