Build:
- 0
2026-06-16 12:47.24: New job: build dns.5.0.1 (96ee52f2828b) 2026-06-16 12:47.24: Waiting for resource in pool day11-builds 2026-06-16 14:12.45: Got resource from pool day11-builds 2026-06-16 14:12.45: [profile full] build dns.5.0.1 2026-06-16 14:12.45: build dns.5.0.1 (96ee52f2828b) === DEPENDENCIES (25 transitive) === astring.0.8.5 156e7cc742dd base-threads.base b7164ff76afe base-unix.base 839dc585f12d bigarray-compat.1.1.0 ecf1ac9cc3fe cstruct.6.0.1 db62722d8978 domain-name.0.5.0 0aa1d6a444a1 dune.3.23.1 5402470d931c duration.0.3.1 d4a7947dd7f6 fmt.0.11.0 fb25837707ac gmap.0.3.0 19def90f9766 ipaddr.5.6.2 e5195985be25 logs.0.10.0 a7cdcdcb1947 lru.0.3.1 af0135873c93 macaddr.5.6.2 59c28b8691a3 metrics.0.5.0 469e7f818463 ocaml.4.14.4 cb826ea44eb2 ocaml-base-compiler.4.14.4 d2f775f983d7 ocaml-config.2 669e0fcf9e4d ocamlbuild.0.16.1 8f6c52e6fce8 ocamlfind.1.9.8 6025f4a8e98e psq.0.2.1 41fe545de06b ptime.1.2.0 cedc85093139 rresult.0.7.0 66e2b7baf32c seq.base 063828a3d698 topkg.1.1.1 ab549298f3fc === STDOUT === Processing: [default: loading data] [dns.5.0.1: dl] [dns.5.0.1: extract] -> retrieved dns.5.0.1 (https://opam.ocaml.org/cache) [dns: dune build] + /home/opam/.opam/default/bin/dune "build" "-p" "dns" "-j" "39" (CWD=/home/opam/.opam/default/.opam-switch/build/dns.5.0.1) - (cd _build/default && /home/opam/.opam/default/bin/ocamlc.opt -w -40 -g -bin-annot -I cache/.dns_cache.objs/byte -I /home/opam/.opam/default/lib/astring -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/domain-name -I /home/opam/.opam/default/lib/duration -I /home/opam/.opam/default/lib/fmt -I /home/opam/.opam/default/lib/gmap -I /home/opam/.opam/default/lib/ipaddr -I /home/opam/.opam/default/lib/logs -I /home/opam/.opam/default/lib/lru -I /home/opam/.opam/default/lib/macaddr -I /home/opam/.opam/default/lib/metrics -I /home/opam/.opam/default/lib/psq -I /home/opam/.opam/default/lib/ptime -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/seq -I src/.dns.objs/byte -intf-suffix .ml -no-alias-deps -o cache/.dns_cache.objs/byte/dns_cache.cmo -c -impl cache/dns_cache.ml) - File "cache/dns_cache.ml", line 88, characters 24-28: - 88 | Fmt.(list ~sep:(unit ";@,") (pair Rr_map.ppk pp_entry)) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 119, characters 32-36: - 119 | let pp = LRU.pp Fmt.(pair ~sep:(unit ": ") Domain_name.pp Entry.pp) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 137, characters 24-30: - 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns - ^^^^^^ - Alert deprecated: Fmt.prefix - use Fmt.(++) instead. - File "cache/dns_cache.ml", line 137, characters 32-36: - 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 138, characters 26-32: - 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns - ^^^^^^ - Alert deprecated: Fmt.prefix - use Fmt.(++) instead. - File "cache/dns_cache.ml", line 138, characters 34-38: - 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 139, characters 26-32: - 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns - ^^^^^^ - Alert deprecated: Fmt.prefix - use Fmt.(++) instead. - File "cache/dns_cache.ml", line 139, characters 34-38: - 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - (cd _build/default && /home/opam/.opam/default/bin/ocamlc.opt -w -40 -g -bin-annot -I src/.dns.objs/byte -I /home/opam/.opam/default/lib/astring -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/domain-name -I /home/opam/.opam/default/lib/fmt -I /home/opam/.opam/default/lib/gmap -I /home/opam/.opam/default/lib/ipaddr -I /home/opam/.opam/default/lib/logs -I /home/opam/.opam/default/lib/macaddr -I /home/opam/.opam/default/lib/metrics -I /home/opam/.opam/default/lib/ptime -I /home/opam/.opam/default/lib/rresult -intf-suffix .ml -no-alias-deps -o src/.dns.objs/byte/dns.cmo -c -impl src/dns.ml) - File "src/dns.ml", line 70, characters 41-49: - 70 | | c -> Error (`Not_implemented (off, Fmt.strf "class %X" c)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 108, characters 41-49: - 108 | | x -> Error (`Not_implemented (off, Fmt.strf "opcode 0x%X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 166, characters 41-49: - 166 | | x -> Error (`Not_implemented (off, Fmt.strf "rcode 0x%04X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 203, characters 50-58: - 203 | | i when i >= 64 -> Error (`Malformed (off, Fmt.strf "label tag 0x%x" i)) (* bit patterns starting with 10 or 01 *) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 295, characters 25-33: - 295 | `Malformed (off, Fmt.strf "invalid hostname %a" Domain_name.pp name)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 745, characters 34-42: - 745 | (`Not_implemented (off + 2, Fmt.strf "dnskey protocol 0x%x" proto)) >>| fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 754, characters 13-24: - 754 | let kl = Cstruct.len t.key in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 796, characters 39-43: - 796 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 811, characters 35-43: - 811 | (`Not_implemented (succ off, Fmt.strf "caa tag 0x%x" tl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 961, characters 12-23: - 961 | let l = Cstruct.len tlsa.data in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1059, characters 12-23: - 1059 | let l = Cstruct.len sshfp.fingerprint in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1152, characters 17-25: - 1152 | let m = Fmt.strf "algorithm name %a" Domain_name.pp b in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1178, characters 30-38: - 1178 | Error (`Malformed (off, Fmt.strf "timestamp does not fit in time range %Ld" s)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1184, characters 44-52: - 1184 | | None -> Error (`Malformed (off, Fmt.strf "span does not fit into timestamp %Ld" s)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1186, characters 40-48: - 1186 | | None -> Error (`Malformed (off, Fmt.strf "timestamp does not fit %Ld" s)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1237, characters 25-29: - 1237 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1251, characters 11-22: - 1251 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1253, characters 39-47: - 1253 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "tsig ttl is not zero %lu" ttl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1256, characters 11-22: - 1256 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1259, characters 11-22: - 1259 | guard (Cstruct.len buf - off' >= 10) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1264, characters 11-22: - 1264 | guard (Cstruct.len buf - off' >= 10 + mac_len + 6) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1272, characters 11-22: - 1272 | guard (Cstruct.len buf >= rdata_end) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1322, characters 18-29: - 1322 | let mac_len = Cstruct.len t.mac in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1380, characters 16-27: - 1380 | let len = Cstruct.len t.mac in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1390, characters 35-46: - 1390 | Cstruct.BE.set_uint16 buf 0 (Cstruct.len rdata) ; - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1418, characters 70-74: - 1418 | | Tcp_keepalive i -> Fmt.pf ppf "keepalive %a" Fmt.(option ~none:(unit "none") int) i - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1465, characters 12-23: - 1465 | let l = Cstruct.len v in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1486, characters 46-54: - 1486 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1536, characters 23-27: - 1536 | (list ~sep:(unit ", ") pp_extension) opt.extensions) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1553, characters 11-22: - 1553 | guard (Cstruct.len buf - off >= 11) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1916, characters 30-41: - 1916 | let buf = Bytes.create (Cstruct.len cs * 2) in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1917, characters 25-36: - 1917 | for i = 0 to pred (Cstruct.len cs) do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1945, characters 31-37: - 1945 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^^^ - Alert deprecated: Fmt.suffix - use Fmt.(++) instead. - File "src/dns.ml", line 1945, characters 39-43: - 1945 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1950, characters 10-18: - 1950 | [ Fmt.strf "%s\t%aCNAME\t%s" str_name ttl_fmt (ttl_opt ttl) (name alias) ] - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1953, characters 12-20: - 1953 | Fmt.strf "%s\t%aMX\t%u\t%s" str_name ttl_fmt (ttl_opt ttl) preference (name mail_exchange) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1957, characters 12-20: - 1957 | Fmt.strf "%s\t%aNS\t%s" str_name ttl_fmt (ttl_opt ttl) (name ns) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1960, characters 10-18: - 1960 | [ Fmt.strf "%s\t%aPTR\t%s" str_name ttl_fmt (ttl_opt ttl) (name ptr) ] - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1962, characters 10-18: - 1962 | [ Fmt.strf "%s\t%aSOA\t%s\t%s\t%lu\t%lu\t%lu\t%lu\t%lu" str_name - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1970, characters 12-20: - 1970 | Fmt.strf "%s\t%aTXT\t\"%s\"" str_name ttl_fmt (ttl_opt ttl) txt :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1974, characters 10-18: - 1974 | Fmt.strf "%s\t%aA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V4.to_string ip) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1978, characters 12-20: - 1978 | Fmt.strf "%s\t%aAAAA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V6.to_string ip) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1982, characters 12-20: - 1982 | Fmt.strf "%s\t%aSRV\t%u\t%u\t%u\t%s" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1989, characters 12-20: - 1989 | Fmt.strf "%s%a\tDNSKEY\t%u\t3\t%d\t%s" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1997, characters 12-20: - 1997 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\"" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2004, characters 12-20: - 2004 | Fmt.strf "%s\t%aTLSA\t%u\t%u\t%u\t%s" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2013, characters 12-20: - 2013 | Fmt.strf "%s\t%aSSHFP\t%u\t%u\t%s" str_name ttl_fmt (ttl_opt ttl) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2020, characters 12-20: - 2020 | Fmt.strf "%s\t%aTYPE%d\t\\# %d %s" str_name ttl_fmt (ttl_opt ttl) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2165, characters 11-22: - 2165 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2171, characters 24-32: - 2171 | (`Malformed (off, Fmt.strf "bad TTL (high bit set) %lu" ttl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2172, characters 11-22: - 2172 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2174, characters 28-36: - 2174 | (`Malformed (off + 4, Fmt.strf "length %d exceeds maximum rdata size" len)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2236, characters 24-28: - 2236 | Fmt.(list ~sep:(unit "@.") string) ppf - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2350, characters 24-28: - 2350 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2374, characters 13-24: - 2374 | guard (Cstruct.len buf >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2485, characters 11-22: - 2485 | guard (Cstruct.len buf - off >= 4) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2542, characters 18-26: - 2542 | let msg = Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2548, characters 40-48: - 2548 | Error (`Not_implemented (off, Fmt.strf "bad class in question 0x%x" c)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2567, characters 30-38: - 2567 | (`Not_implemented (off, Fmt.strf "rr class not IN 0x%x" clas)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2573, characters 36-44: - 2573 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2608, characters 26-34: - 2608 | (`Malformed (off, Fmt.strf "tsig class must be ANY 0x%x" clas)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2613, characters 26-34: - 2613 | (`Malformed (off, Fmt.strf "additional class must be IN 0x%x" clas)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2616, characters 35-43: - 2616 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2718, characters 24-32: - 2718 | (`Malformed (6, Fmt.strf "AXFR needs at least one RRs in answer %d" ancount)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2873, characters 24-32: - 2873 | (`Malformed (6, Fmt.strf "IXFR needs at least one RRs in answer %d" ancount)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2976, characters 13-24: - 2976 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2978, characters 41-49: - 2978 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "prereq TTL not zero %lu" ttl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2980, characters 54-62: - 2980 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "prereq rdlength must be zero %d" rlen)) in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2990, characters 37-45: - 2990 | | _ -> Error (`Malformed (off, Fmt.strf "prereq bad class 0x%x or typ %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3045, characters 13-24: - 3045 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3048, characters 54-62: - 3048 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "update rdlength must be zero %d" rlen)) in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3049, characters 52-60: - 3049 | let ttl0 = guard (ttl = 0l) (`Malformed (off, Fmt.strf "update ttl must be zero %lu" ttl)) in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3067, characters 37-45: - 3067 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3103, characters 24-28: - 3103 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3104, characters 27-31: - 3104 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3105, characters 30-34: - 3105 | (list ~sep:(unit ", ") pp_prereq))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3107, characters 24-28: - 3107 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3108, characters 27-31: - 3108 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3109, characters 30-34: - 3109 | (list ~sep:(unit ", ") pp_update))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3122, characters 26-34: - 3122 | (`Malformed (off, Fmt.strf "update question not SOA %a" Rr_map.pp_rr (snd question))) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3159, characters 63-67: - 3159 | | `Notify soa -> Fmt.pf ppf "notify %a" Fmt.(option ~none:(unit "no") Soa.pp) soa - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3206, characters 27-31: - 3206 | Fmt.(option ~none:(unit "no data") Answer.pp) q - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3277, characters 25-29: - 3277 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3278, characters 25-29: - 3278 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3335, characters 10-21: - 3335 | (if Cstruct.len buf > off then - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3336, characters 17-28: - 3336 | let n = Cstruct.len buf - off in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3395, characters 45-53: - 3395 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" Opcode.pp x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3402, characters 55-63: - 3402 | guard (au_count = 0) (`Malformed (8, Fmt.strf "AXFR with aucount %d > 0" au_count)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3406, characters 55-63: - 3406 | guard (au_count = 0) (`Malformed (8, Fmt.strf "IXFR with aucount %d > 0" au_count)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3421, characters 47-55: - 3421 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3553, characters 10-21: - 3553 | Cstruct.len buf, true - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3601, characters 7-18: - 3601 | if Cstruct.len buf < 12 then - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - (cd _build/default && /home/opam/.opam/default/bin/ocamlopt.opt -w -40 -g -I src/.dns.objs/byte -I src/.dns.objs/native -I /home/opam/.opam/default/lib/astring -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/domain-name -I /home/opam/.opam/default/lib/fmt -I /home/opam/.opam/default/lib/gmap -I /home/opam/.opam/default/lib/ipaddr -I /home/opam/.opam/default/lib/logs -I /home/opam/.opam/default/lib/macaddr -I /home/opam/.opam/default/lib/metrics -I /home/opam/.opam/default/lib/ptime -I /home/opam/.opam/default/lib/rresult -intf-suffix .ml -no-alias-deps -o src/.dns.objs/native/dns.cmx -c -impl src/dns.ml) - File "src/dns.ml", line 70, characters 41-49: - 70 | | c -> Error (`Not_implemented (off, Fmt.strf "class %X" c)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 108, characters 41-49: - 108 | | x -> Error (`Not_implemented (off, Fmt.strf "opcode 0x%X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 166, characters 41-49: - 166 | | x -> Error (`Not_implemented (off, Fmt.strf "rcode 0x%04X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 203, characters 50-58: - 203 | | i when i >= 64 -> Error (`Malformed (off, Fmt.strf "label tag 0x%x" i)) (* bit patterns starting with 10 or 01 *) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 295, characters 25-33: - 295 | `Malformed (off, Fmt.strf "invalid hostname %a" Domain_name.pp name)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 745, characters 34-42: - 745 | (`Not_implemented (off + 2, Fmt.strf "dnskey protocol 0x%x" proto)) >>| fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 754, characters 13-24: - 754 | let kl = Cstruct.len t.key in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 796, characters 39-43: - 796 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 811, characters 35-43: - 811 | (`Not_implemented (succ off, Fmt.strf "caa tag 0x%x" tl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 961, characters 12-23: - 961 | let l = Cstruct.len tlsa.data in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1059, characters 12-23: - 1059 | let l = Cstruct.len sshfp.fingerprint in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1152, characters 17-25: - 1152 | let m = Fmt.strf "algorithm name %a" Domain_name.pp b in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1178, characters 30-38: - 1178 | Error (`Malformed (off, Fmt.strf "timestamp does not fit in time range %Ld" s)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1184, characters 44-52: - 1184 | | None -> Error (`Malformed (off, Fmt.strf "span does not fit into timestamp %Ld" s)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1186, characters 40-48: - 1186 | | None -> Error (`Malformed (off, Fmt.strf "timestamp does not fit %Ld" s)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1237, characters 25-29: - 1237 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1251, characters 11-22: - 1251 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1253, characters 39-47: - 1253 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "tsig ttl is not zero %lu" ttl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1256, characters 11-22: - 1256 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1259, characters 11-22: - 1259 | guard (Cstruct.len buf - off' >= 10) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1264, characters 11-22: - 1264 | guard (Cstruct.len buf - off' >= 10 + mac_len + 6) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1272, characters 11-22: - 1272 | guard (Cstruct.len buf >= rdata_end) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1322, characters 18-29: - 1322 | let mac_len = Cstruct.len t.mac in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1380, characters 16-27: - 1380 | let len = Cstruct.len t.mac in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1390, characters 35-46: - 1390 | Cstruct.BE.set_uint16 buf 0 (Cstruct.len rdata) ; - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1418, characters 70-74: - 1418 | | Tcp_keepalive i -> Fmt.pf ppf "keepalive %a" Fmt.(option ~none:(unit "none") int) i - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1465, characters 12-23: - 1465 | let l = Cstruct.len v in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1486, characters 46-54: - 1486 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1536, characters 23-27: - 1536 | (list ~sep:(unit ", ") pp_extension) opt.extensions) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1553, characters 11-22: - 1553 | guard (Cstruct.len buf - off >= 11) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1916, characters 30-41: - 1916 | let buf = Bytes.create (Cstruct.len cs * 2) in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1917, characters 25-36: - 1917 | for i = 0 to pred (Cstruct.len cs) do - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1945, characters 31-37: - 1945 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^^^ - Alert deprecated: Fmt.suffix - use Fmt.(++) instead. - File "src/dns.ml", line 1945, characters 39-43: - 1945 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1950, characters 10-18: - 1950 | [ Fmt.strf "%s\t%aCNAME\t%s" str_name ttl_fmt (ttl_opt ttl) (name alias) ] - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1953, characters 12-20: - 1953 | Fmt.strf "%s\t%aMX\t%u\t%s" str_name ttl_fmt (ttl_opt ttl) preference (name mail_exchange) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1957, characters 12-20: - 1957 | Fmt.strf "%s\t%aNS\t%s" str_name ttl_fmt (ttl_opt ttl) (name ns) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1960, characters 10-18: - 1960 | [ Fmt.strf "%s\t%aPTR\t%s" str_name ttl_fmt (ttl_opt ttl) (name ptr) ] - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1962, characters 10-18: - 1962 | [ Fmt.strf "%s\t%aSOA\t%s\t%s\t%lu\t%lu\t%lu\t%lu\t%lu" str_name - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1970, characters 12-20: - 1970 | Fmt.strf "%s\t%aTXT\t\"%s\"" str_name ttl_fmt (ttl_opt ttl) txt :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1974, characters 10-18: - 1974 | Fmt.strf "%s\t%aA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V4.to_string ip) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1978, characters 12-20: - 1978 | Fmt.strf "%s\t%aAAAA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V6.to_string ip) :: acc) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1982, characters 12-20: - 1982 | Fmt.strf "%s\t%aSRV\t%u\t%u\t%u\t%s" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1989, characters 12-20: - 1989 | Fmt.strf "%s%a\tDNSKEY\t%u\t3\t%d\t%s" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1997, characters 12-20: - 1997 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\"" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2004, characters 12-20: - 2004 | Fmt.strf "%s\t%aTLSA\t%u\t%u\t%u\t%s" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2013, characters 12-20: - 2013 | Fmt.strf "%s\t%aSSHFP\t%u\t%u\t%s" str_name ttl_fmt (ttl_opt ttl) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2020, characters 12-20: - 2020 | Fmt.strf "%s\t%aTYPE%d\t\\# %d %s" str_name ttl_fmt (ttl_opt ttl) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2165, characters 11-22: - 2165 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2171, characters 24-32: - 2171 | (`Malformed (off, Fmt.strf "bad TTL (high bit set) %lu" ttl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2172, characters 11-22: - 2172 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2174, characters 28-36: - 2174 | (`Malformed (off + 4, Fmt.strf "length %d exceeds maximum rdata size" len)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2236, characters 24-28: - 2236 | Fmt.(list ~sep:(unit "@.") string) ppf - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2350, characters 24-28: - 2350 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2374, characters 13-24: - 2374 | guard (Cstruct.len buf >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2485, characters 11-22: - 2485 | guard (Cstruct.len buf - off >= 4) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2542, characters 18-26: - 2542 | let msg = Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2548, characters 40-48: - 2548 | Error (`Not_implemented (off, Fmt.strf "bad class in question 0x%x" c)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2567, characters 30-38: - 2567 | (`Not_implemented (off, Fmt.strf "rr class not IN 0x%x" clas)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2573, characters 36-44: - 2573 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2608, characters 26-34: - 2608 | (`Malformed (off, Fmt.strf "tsig class must be ANY 0x%x" clas)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2613, characters 26-34: - 2613 | (`Malformed (off, Fmt.strf "additional class must be IN 0x%x" clas)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2616, characters 35-43: - 2616 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2718, characters 24-32: - 2718 | (`Malformed (6, Fmt.strf "AXFR needs at least one RRs in answer %d" ancount)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2873, characters 24-32: - 2873 | (`Malformed (6, Fmt.strf "IXFR needs at least one RRs in answer %d" ancount)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2976, characters 13-24: - 2976 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2978, characters 41-49: - 2978 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "prereq TTL not zero %lu" ttl)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2980, characters 54-62: - 2980 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "prereq rdlength must be zero %d" rlen)) in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2990, characters 37-45: - 2990 | | _ -> Error (`Malformed (off, Fmt.strf "prereq bad class 0x%x or typ %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3045, characters 13-24: - 3045 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3048, characters 54-62: - 3048 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "update rdlength must be zero %d" rlen)) in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3049, characters 52-60: - 3049 | let ttl0 = guard (ttl = 0l) (`Malformed (off, Fmt.strf "update ttl must be zero %lu" ttl)) in - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3067, characters 37-45: - 3067 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3103, characters 24-28: - 3103 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3104, characters 27-31: - 3104 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3105, characters 30-34: - 3105 | (list ~sep:(unit ", ") pp_prereq))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3107, characters 24-28: - 3107 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3108, characters 27-31: - 3108 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3109, characters 30-34: - 3109 | (list ~sep:(unit ", ") pp_update))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3122, characters 26-34: - 3122 | (`Malformed (off, Fmt.strf "update question not SOA %a" Rr_map.pp_rr (snd question))) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3159, characters 63-67: - 3159 | | `Notify soa -> Fmt.pf ppf "notify %a" Fmt.(option ~none:(unit "no") Soa.pp) soa - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3206, characters 27-31: - 3206 | Fmt.(option ~none:(unit "no data") Answer.pp) q - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3277, characters 25-29: - 3277 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3278, characters 25-29: - 3278 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3335, characters 10-21: - 3335 | (if Cstruct.len buf > off then - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3336, characters 17-28: - 3336 | let n = Cstruct.len buf - off in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3395, characters 45-53: - 3395 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" Opcode.pp x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3402, characters 55-63: - 3402 | guard (au_count = 0) (`Malformed (8, Fmt.strf "AXFR with aucount %d > 0" au_count)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3406, characters 55-63: - 3406 | guard (au_count = 0) (`Malformed (8, Fmt.strf "IXFR with aucount %d > 0" au_count)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3421, characters 47-55: - 3421 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3553, characters 10-21: - 3553 | Cstruct.len buf, true - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3601, characters 7-18: - 3601 | if Cstruct.len buf < 12 then - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - (cd _build/default && /home/opam/.opam/default/bin/ocamlopt.opt -w -40 -g -I cache/.dns_cache.objs/byte -I cache/.dns_cache.objs/native -I /home/opam/.opam/default/lib/astring -I /home/opam/.opam/default/lib/bigarray-compat -I /home/opam/.opam/default/lib/cstruct -I /home/opam/.opam/default/lib/domain-name -I /home/opam/.opam/default/lib/duration -I /home/opam/.opam/default/lib/fmt -I /home/opam/.opam/default/lib/gmap -I /home/opam/.opam/default/lib/ipaddr -I /home/opam/.opam/default/lib/logs -I /home/opam/.opam/default/lib/lru -I /home/opam/.opam/default/lib/macaddr -I /home/opam/.opam/default/lib/metrics -I /home/opam/.opam/default/lib/psq -I /home/opam/.opam/default/lib/ptime -I /home/opam/.opam/default/lib/rresult -I /home/opam/.opam/default/lib/seq -I src/.dns.objs/byte -I src/.dns.objs/native -intf-suffix .ml -no-alias-deps -o cache/.dns_cache.objs/native/dns_cache.cmx -c -impl cache/dns_cache.ml) - File "cache/dns_cache.ml", line 88, characters 24-28: - 88 | Fmt.(list ~sep:(unit ";@,") (pair Rr_map.ppk pp_entry)) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 119, characters 32-36: - 119 | let pp = LRU.pp Fmt.(pair ~sep:(unit ": ") Domain_name.pp Entry.pp) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 137, characters 24-30: - 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns - ^^^^^^ - Alert deprecated: Fmt.prefix - use Fmt.(++) instead. - File "cache/dns_cache.ml", line 137, characters 32-36: - 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 138, characters 26-32: - 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns - ^^^^^^ - Alert deprecated: Fmt.prefix - use Fmt.(++) instead. - File "cache/dns_cache.ml", line 138, characters 34-38: - 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "cache/dns_cache.ml", line 139, characters 26-32: - 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns - ^^^^^^ - Alert deprecated: Fmt.prefix - use Fmt.(++) instead. - File "cache/dns_cache.ml", line 139, characters 34-38: - 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. -> compiled dns.5.0.1 -> installed dns.5.0.1 === STDERR === 2026-06-16 14:12.57: OK: build dns.5.0.1 (runc: 4.1s, disk: 57KB) 2026-06-16 14:12.57: Job succeeded