Source

planck / lib / elem.ml

(** Type of the stream element *)
module type S = sig
  type t (** the element of the stream *)

  include Mtypes.Printable  with type t := t
  include Mtypes.Comparable with type t := t
end

module Char = struct
  type t = char
  let show = Printf.sprintf "%C"
  let format ppf = Format.fprintf ppf "%C"
  let equal (x : char) y = x = y
  let compare (x : char) y = compare x y
end