Install top-level printers with attribute

As of ocaml-community/utop#269 utop automatically installs printers marked with the `[@@ocaml.toplevel_printer]` attribute.
brendanzab · Nov 11, 2024 · 613de42 · 613de42
1 parent 6aaa3e3
commit 613de42
Show file tree

Hide file tree

Showing 6 changed files with 1 addition and 93 deletions.
diff --git a/src/unsigned.mli b/src/unsigned.mli
@@ -136,7 +136,7 @@ module type S = sig
   (** Convert the given string to an unsigned integer. Returns [None] if the
       given string is not a valid representation of an unsigned integer. *)
 
-  val pp : Format.formatter -> t -> unit
+  val pp : Format.formatter -> t -> unit [@@ocaml.toplevel_printer]
   (** Output the result of {!to_string} on a formatter. *)
 
   val pp_hex : Format.formatter -> t -> unit

diff --git a/top/dune b/top/dune
diff --git a/top/install_integer_printers.ml b/top/install_integer_printers.ml
diff --git a/top/install_integer_printers.mli b/top/install_integer_printers.mli
diff --git a/top/integer_printers.ml b/top/integer_printers.ml
diff --git a/top/integer_printers.mli b/top/integer_printers.mli