haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Naive fix for 4.06.0

This commit is contained in:
Rudi Grinberg 2017-11-06 18:45:27 +08:00
parent fa043105fb
commit 89c3355a2b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib/uTop.ml
View File

@ -180,7 +180,10 @@ let discard_formatters pps f =
(* Output functions. *) (* Output functions. *)
let out_functions = { let out_functions = {
Format.out_string = (fun _ _ _ -> ()); out_flush = ignore; Format.out_string = (fun _ _ _ -> ()); out_flush = ignore;
out_newline = ignore; out_spaces = ignore; out_newline = ignore; out_spaces = ignore
#if OCAML_VERSION >= (4, 06, 0)
; out_indent = ignore
#endif
} in } in
(* Replace formatter functions. *) (* Replace formatter functions. *)
List.iter (fun pp -> Format.pp_set_formatter_out_functions pp out_functions) pps; List.iter (fun pp -> Format.pp_set_formatter_out_functions pp out_functions) pps;