module Maki_bencode: sig .. end
Helpers for Bencode
module B: Bencode
exception Maki_error of string
val decode_bencode : string -> (B.t, exn) Result.result
val assoc : 'a -> ('a * 'b) list -> ('b, exn) Result.result
val assoc_or : 'a -> 'b -> ('b * 'a) list -> 'a
val as_str : B.t -> (string, exn) Result.result
val as_float : B.t -> (float, exn) Result.result
val as_list : B.t -> (B.t list, exn) Result.result
val mk_str : string -> B.t
val mk_list : B.t list -> B.t
val mk_dict : (string * B.t) list -> B.t
val mk_pair : B.t -> B.t -> B.t
val mk_triple : B.t -> B.t -> B.t -> B.t
val mk_quad : B.t -> B.t -> B.t -> B.t -> B.t
val expected_s : string -> string -> ('a, exn) Result.result
val expected_b : string -> B.t -> ('a, exn) Result.result