Use Cstruct.length and require cstruct >= 6.0.0

2021-08-03 09:26:07 +02:00 · 2021-08-03 09:26:07 +02:00 · f9fcd2c733
commit f9fcd2c733
parent fc734dc2cd
2 changed files with 2 additions and 1 deletions
--- a/builder-web.opam
+++ b/builder-web.opam
@ -17,6 +17,7 @@ build: [
 depends: [
  "builder"
  "dream" {>= "1.0.0~alpha2"}
+  "cstruct" {>= "6.0.0"}
  "bos"
  "hex"
  "caqti"
--- a/db/representation.ml
+++ b/db/representation.ml
@ -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)