···4545 let get_exn typ tlv =
4646 match get typ tlv with
4747 | Some v -> v
4848- | None -> failwith (Fmt.str "TLV type %d not found" typ)
4848+ | None -> Fmt.failwith "TLV type %d not found" typ
49495050 (* Encode TLV to bytes - values > 255 bytes are split *)
5151 let encode tlv =