Use Cstruct.length and require cstruct >= 6.0.0

This commit is contained in:
Reynir Björnsson 2021-08-03 09:26:07 +02:00
parent fc734dc2cd
commit f9fcd2c733
2 changed files with 2 additions and 1 deletions

View file

@ -17,6 +17,7 @@ build: [
depends: [
"builder"
"dream" {>= "1.0.0~alpha2"}
"cstruct" {>= "6.0.0"}
"bos"
"hex"
"caqti"

View file

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