package ez_api

  1. Overview
  2. Docs
module IntMap : sig ... end
type _ case =
  1. | Case : {
    1. code : int;
    2. name : string;
    3. encoding : 'a Json_encoding.encoding;
    4. select : 'b -> 'a option;
    5. deselect : 'a -> 'b;
    } -> 'b case
val make : code:int -> name:string -> encoding:'a Json_encoding.encoding -> select:('b -> 'c option) -> deselect:('d -> 'e) -> 'f case
val merge_errs_same_code : ?definitions_path:string -> 'a case list -> (IntMap.key * Json_schema.schema lazy_t) list
val catch_all_error_case : unit -> 'a case
val get : code:int -> 'a case list -> 'b Json_encoding.encoding option