Token_id.T
module M : Monad_fail.S
val decode : Yojson.Safe.t option -> ( string option, Errors.t ) M.t