+module PhenoType : sig
+ type t
+
+ val create : char -> Terminal.color option -> t
+
+ val to_string : t -> string
+end = struct
+ type t = { color : Terminal.color option
+ ; character : char
+ }
+
+ let create character color =
+ {color; character}
+
+ let to_string = function
+ | {color=None; character} ->
+ String.of_char character
+ | {color=Some c; character} ->
+ Terminal.string_with_color (String.of_char character) c