1type t = [ `None | `Zlib ] 2 3let to_char : t -> char option = function 4 | `None -> None 5 | `Zlib -> Some 'z'
anil.recoil.org