use neat trick to alias properly type of Format

This commit is contained in:
Simon Cruanes 2018-01-06 08:24:42 -06:00
parent 53137a6183
commit 1b9c014e25

View file

@ -7,11 +7,10 @@
type 'a sequence = ('a -> unit) -> unit type 'a sequence = ('a -> unit) -> unit
include module type of Format (* include Format, and alias all its types.
with type formatter = Format.formatter see https://discuss.ocaml.org/t/extend-existing-module/1389/4
and type formatter_out_functions = Format.formatter_out_functions *)
and type formatter_tag_functions = Format.formatter_tag_functions include module type of struct include Format end
type t = Format.formatter type t = Format.formatter
type 'a printer = t -> 'a -> unit type 'a printer = t -> 'a -> unit