lib/kgp_quiet.ml at main · anil.recoil.org/ocaml-kgp

Kitty Graphics Protocol in OCaml

terminal graphics ocaml

ocaml-kgp / lib / kgp_quiet.ml

at main 387 B view raw

 1(*---------------------------------------------------------------------------
 2   Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
 3   SPDX-License-Identifier: ISC
 4  ---------------------------------------------------------------------------*)
 5
 6type t = [ `Noisy | `Errors_only | `Silent ]
 7
 8let to_int : t -> int = function
 9  | `Noisy -> 0
10  | `Errors_only -> 1
11  | `Silent -> 2