Ansi_color.to_dyn

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Mar 27, 2021 · 3e9c69d · 3e9c69d
1 parent c68382a
commit 3e9c69d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/otherlibs/stdune-unstable/ansi_color.ml b/otherlibs/stdune-unstable/ansi_color.ml
@@ -1,6 +1,8 @@
 module Style = struct
   type t = string
 
+  let to_dyn s = Dyn.Encoder.string s
+
   let fg_black = "30"
 
   let fg_red = "31"

diff --git a/otherlibs/stdune-unstable/ansi_color.mli b/otherlibs/stdune-unstable/ansi_color.mli
@@ -1,6 +1,8 @@
 module Style : sig
   type t
 
+  val to_dyn : t -> Dyn.t
+
   val fg_default : t
 
   val fg_black : t