use Cstruct.length instead of deprecated Cstruct.len

This commit is contained in:
Robur 2021-09-08 09:11:54 +00:00
parent edcbf73386
commit dd6535296d

View file

@ -9,7 +9,7 @@ module Asn = struct
let decode_strict codec cs = let decode_strict codec cs =
match Asn.decode codec cs with match Asn.decode codec cs with
| Ok (a, cs) -> | Ok (a, cs) ->
if Cstruct.len cs = 0 if Cstruct.length cs = 0
then Ok a then Ok a
else Error "trailing bytes" else Error "trailing bytes"
| Error (`Parse msg) -> Error ("parse error: " ^ msg) | Error (`Parse msg) -> Error ("parse error: " ^ msg)