Add missing docstring normalization

Without this docstrings with UTF8 withing `[]` have miscalculated lengths.

Author: jberdine

lib/Fmt.mli

@@ -20,9 +20,9 @@ type s = (unit, Format.formatter, unit) format
 type t
 
 type sp =
-  | Blank  (** [ ] *)
+  | Blank  (** [ ] *)
   | Cut  (** [@,] *)
-  | Space  (** [@ ] *)
+  | Space  (** [@ ] *)
   | Break of int * int  (** [@;] *)
 
 val sp : sp -> t

lib/Fmt_odoc.ml

@@ -89,7 +89,8 @@ let fmt_code_block conf s1 s2 =
       let box = match lines with _ :: _ :: _ -> vbox 0 | _ -> hvbox 0 in
       box (wrap_code (vbox 0 (list_fl lines fmt_line)))
 
-let fmt_code_span s = hovbox 0 (wrap "[" "]" (str (escape_brackets s)))
+let fmt_code_span s =
+  hovbox 0 (wrap "[" "]" (str_normalized ~escape:escape_brackets s))
 
 let fmt_reference = ign_loc ~f:str_normalized