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

Kitty Graphics Protocol in OCaml

terminal graphics ocaml

ocaml-kgp / lib / kgp_transmission.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 = [ `Direct | `File | `Tempfile ]
 7
 8let to_char : t -> char = function
 9  | `Direct -> 'd'
10  | `File -> 'f'
11  | `Tempfile -> 't'