Build:
- 0
2026-06-16 12:47.24: New job: build dns.4.4.1 (8c610b84e546) 2026-06-16 12:47.24: Waiting for resource in pool day11-builds 2026-06-16 14:12.44: Got resource from pool day11-builds 2026-06-16 14:12.44: [profile full] build dns.4.4.1 2026-06-16 14:12.44: build dns.4.4.1 (8c610b84e546) === 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.4.4.1: dl] [dns.4.4.1: extract] -> retrieved dns.4.4.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.4.4.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 48, characters 41-49: - 48 | | c -> Error (`Not_implemented (off, Fmt.strf "class %X" c)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 86, characters 41-49: - 86 | | x -> Error (`Not_implemented (off, Fmt.strf "opcode 0x%X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 144, characters 41-49: - 144 | | x -> Error (`Not_implemented (off, Fmt.strf "rcode 0x%04X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 181, characters 50-58: - 181 | | 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 268, characters 25-33: - 268 | `Malformed (off, Fmt.strf "invalid hostname %a" Domain_name.pp name)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 670, characters 41-49: - 670 | | x -> Error (`Not_implemented (off, Fmt.strf "DNSKEY algorithm 0x%X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 720, characters 50-58: - 720 | guard (proto = 3) (`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 730, characters 13-24: - 730 | let kl = Cstruct.len t.key in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 772, characters 39-43: - 772 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 786, characters 59-67: - 786 | guard (tl > 0 && tl < 16) (`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 825, characters 41-49: - 825 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA cert usage %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 848, characters 41-49: - 848 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 870, characters 41-49: - 870 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA matching type %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 916, characters 12-23: - 916 | let l = Cstruct.len tlsa.data in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 942, characters 41-49: - 942 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 964, characters 41-49: - 964 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1001, characters 12-23: - 1001 | let l = Cstruct.len sshfp.fingerprint in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1081, characters 17-25: - 1081 | 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 1107, characters 30-38: - 1107 | 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 1160, characters 25-29: - 1160 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1174, characters 11-22: - 1174 | 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 1176, characters 39-47: - 1176 | 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 1179, characters 11-22: - 1179 | 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 1182, characters 11-22: - 1182 | 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 1187, characters 11-22: - 1187 | 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 1195, characters 11-22: - 1195 | 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 1245, characters 18-29: - 1245 | 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 1303, characters 16-27: - 1303 | let len = Cstruct.len t.mac in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1313, characters 35-46: - 1313 | 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 1340, characters 70-74: - 1340 | | 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 1387, characters 12-23: - 1387 | let l = Cstruct.len v in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1408, characters 46-54: - 1408 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1458, characters 23-27: - 1458 | (list ~sep:(unit ", ") pp_extension) opt.extensions) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1475, characters 11-22: - 1475 | 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 1838, characters 30-41: - 1838 | 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 1839, characters 25-36: - 1839 | 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 1867, characters 31-37: - 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^^^ - Alert deprecated: Fmt.suffix - use Fmt.(++) instead. - File "src/dns.ml", line 1867, characters 39-43: - 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1872, characters 10-18: - 1872 | [ 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 1875, characters 12-20: - 1875 | 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 1879, characters 12-20: - 1879 | 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 1882, characters 10-18: - 1882 | [ 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 1884, characters 10-18: - 1884 | [ 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 1892, characters 12-20: - 1892 | 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 1896, characters 10-18: - 1896 | 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 1900, characters 12-20: - 1900 | 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 1904, characters 12-20: - 1904 | 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 1911, characters 12-20: - 1911 | 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 1919, characters 12-20: - 1919 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\"" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1926, characters 12-20: - 1926 | 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 1935, characters 12-20: - 1935 | 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 1942, characters 12-20: - 1942 | 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 2003, characters 11-22: - 2003 | 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 2009, characters 24-32: - 2009 | (`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 2010, characters 11-22: - 2010 | 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 2072, characters 24-28: - 2072 | Fmt.(list ~sep:(unit "@.") string) ppf - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2186, characters 24-28: - 2186 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2210, characters 13-24: - 2210 | guard (Cstruct.len buf >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2321, characters 11-22: - 2321 | 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 2377, characters 49-57: - 2377 | | `Edns | `Tsig -> Error (`Malformed (off, Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2379, characters 43-51: - 2379 | | _ -> 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 2398, characters 30-38: - 2398 | (`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 2404, characters 36-44: - 2404 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2439, characters 26-34: - 2439 | (`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 2444, characters 26-34: - 2444 | (`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 2447, characters 35-43: - 2447 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2540, characters 24-32: - 2540 | (`Malformed (6, Fmt.strf "AXFR needs at least two RRs in answer %d" ancount)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2634, characters 24-32: - 2634 | (`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 2737, characters 13-24: - 2737 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2739, characters 41-49: - 2739 | 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 2741, characters 54-62: - 2741 | 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 2751, characters 37-45: - 2751 | | _ -> 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 2806, characters 13-24: - 2806 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2809, characters 54-62: - 2809 | 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 2810, characters 52-60: - 2810 | 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 2828, characters 37-45: - 2828 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2864, characters 24-28: - 2864 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2865, characters 27-31: - 2865 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2866, characters 30-34: - 2866 | (list ~sep:(unit ", ") pp_prereq))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2868, characters 24-28: - 2868 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2869, characters 27-31: - 2869 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2870, characters 30-34: - 2870 | (list ~sep:(unit ", ") pp_update))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2883, characters 26-34: - 2883 | (`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 2920, characters 63-67: - 2920 | | `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 2952, characters 27-31: - 2952 | Fmt.(option ~none:(unit "no data") Answer.pp) q - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3023, characters 25-29: - 3023 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3024, characters 25-29: - 3024 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3081, characters 10-21: - 3081 | (if Cstruct.len buf > off then - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3082, characters 17-28: - 3082 | let n = Cstruct.len buf - off in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3141, characters 45-53: - 3141 | | 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 3148, characters 55-63: - 3148 | 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 3152, characters 55-63: - 3152 | 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 3167, characters 47-55: - 3167 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3298, characters 10-21: - 3298 | Cstruct.len buf, true - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3318, characters 7-18: - 3318 | 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 48, characters 41-49: - 48 | | c -> Error (`Not_implemented (off, Fmt.strf "class %X" c)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 86, characters 41-49: - 86 | | x -> Error (`Not_implemented (off, Fmt.strf "opcode 0x%X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 144, characters 41-49: - 144 | | x -> Error (`Not_implemented (off, Fmt.strf "rcode 0x%04X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 181, characters 50-58: - 181 | | 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 268, characters 25-33: - 268 | `Malformed (off, Fmt.strf "invalid hostname %a" Domain_name.pp name)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 670, characters 41-49: - 670 | | x -> Error (`Not_implemented (off, Fmt.strf "DNSKEY algorithm 0x%X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 720, characters 50-58: - 720 | guard (proto = 3) (`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 730, characters 13-24: - 730 | let kl = Cstruct.len t.key in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 772, characters 39-43: - 772 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 786, characters 59-67: - 786 | guard (tl > 0 && tl < 16) (`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 825, characters 41-49: - 825 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA cert usage %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 848, characters 41-49: - 848 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 870, characters 41-49: - 870 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA matching type %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 916, characters 12-23: - 916 | let l = Cstruct.len tlsa.data in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 942, characters 41-49: - 942 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 964, characters 41-49: - 964 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1001, characters 12-23: - 1001 | let l = Cstruct.len sshfp.fingerprint in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1081, characters 17-25: - 1081 | 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 1107, characters 30-38: - 1107 | 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 1160, characters 25-29: - 1160 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1174, characters 11-22: - 1174 | 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 1176, characters 39-47: - 1176 | 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 1179, characters 11-22: - 1179 | 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 1182, characters 11-22: - 1182 | 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 1187, characters 11-22: - 1187 | 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 1195, characters 11-22: - 1195 | 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 1245, characters 18-29: - 1245 | 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 1303, characters 16-27: - 1303 | let len = Cstruct.len t.mac in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1313, characters 35-46: - 1313 | 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 1340, characters 70-74: - 1340 | | 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 1387, characters 12-23: - 1387 | let l = Cstruct.len v in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 1408, characters 46-54: - 1408 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1458, characters 23-27: - 1458 | (list ~sep:(unit ", ") pp_extension) opt.extensions) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1475, characters 11-22: - 1475 | 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 1838, characters 30-41: - 1838 | 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 1839, characters 25-36: - 1839 | 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 1867, characters 31-37: - 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^^^ - Alert deprecated: Fmt.suffix - use Fmt.(++) instead. - File "src/dns.ml", line 1867, characters 39-43: - 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 1872, characters 10-18: - 1872 | [ 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 1875, characters 12-20: - 1875 | 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 1879, characters 12-20: - 1879 | 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 1882, characters 10-18: - 1882 | [ 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 1884, characters 10-18: - 1884 | [ 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 1892, characters 12-20: - 1892 | 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 1896, characters 10-18: - 1896 | 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 1900, characters 12-20: - 1900 | 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 1904, characters 12-20: - 1904 | 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 1911, characters 12-20: - 1911 | 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 1919, characters 12-20: - 1919 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\"" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 1926, characters 12-20: - 1926 | 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 1935, characters 12-20: - 1935 | 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 1942, characters 12-20: - 1942 | 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 2003, characters 11-22: - 2003 | 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 2009, characters 24-32: - 2009 | (`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 2010, characters 11-22: - 2010 | 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 2072, characters 24-28: - 2072 | Fmt.(list ~sep:(unit "@.") string) ppf - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2186, characters 24-28: - 2186 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2210, characters 13-24: - 2210 | guard (Cstruct.len buf >= len) `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2321, characters 11-22: - 2321 | 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 2377, characters 49-57: - 2377 | | `Edns | `Tsig -> Error (`Malformed (off, Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2379, characters 43-51: - 2379 | | _ -> 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 2398, characters 30-38: - 2398 | (`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 2404, characters 36-44: - 2404 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2439, characters 26-34: - 2439 | (`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 2444, characters 26-34: - 2444 | (`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 2447, characters 35-43: - 2447 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2540, characters 24-32: - 2540 | (`Malformed (6, Fmt.strf "AXFR needs at least two RRs in answer %d" ancount)) >>= fun () -> - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2634, characters 24-32: - 2634 | (`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 2737, characters 13-24: - 2737 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2739, characters 41-49: - 2739 | 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 2741, characters 54-62: - 2741 | 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 2751, characters 37-45: - 2751 | | _ -> 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 2806, characters 13-24: - 2806 | guard (Cstruct.len buf >= off') `Partial >>= fun () -> - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 2809, characters 54-62: - 2809 | 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 2810, characters 52-60: - 2810 | 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 2828, characters 37-45: - 2828 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls)) - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 2864, characters 24-28: - 2864 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2865, characters 27-31: - 2865 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2866, characters 30-34: - 2866 | (list ~sep:(unit ", ") pp_prereq))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2868, characters 24-28: - 2868 | Fmt.(list ~sep:(unit ";@ ") - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2869, characters 27-31: - 2869 | (pair ~sep:(unit ":") Domain_name.pp - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2870, characters 30-34: - 2870 | (list ~sep:(unit ", ") pp_update))) - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 2883, characters 26-34: - 2883 | (`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 2920, characters 63-67: - 2920 | | `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 2952, characters 27-31: - 2952 | Fmt.(option ~none:(unit "no data") Answer.pp) q - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3023, characters 25-29: - 3023 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3024, characters 25-29: - 3024 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig - ^^^^ - Alert deprecated: Fmt.unit - use Fmt.any instead. - File "src/dns.ml", line 3081, characters 10-21: - 3081 | (if Cstruct.len buf > off then - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3082, characters 17-28: - 3082 | let n = Cstruct.len buf - off in - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3141, characters 45-53: - 3141 | | 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 3148, characters 55-63: - 3148 | 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 3152, characters 55-63: - 3152 | 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 3167, characters 47-55: - 3167 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" - ^^^^^^^^ - Alert deprecated: Fmt.strf - use Fmt.str instead. - File "src/dns.ml", line 3298, characters 10-21: - 3298 | Cstruct.len buf, true - ^^^^^^^^^^^ - Alert deprecated: Cstruct.len - len is deprecated, you should use length instead. - File "src/dns.ml", line 3318, characters 7-18: - 3318 | 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.4.4.1 -> installed dns.4.4.1 === STDERR === 2026-06-16 14:12.54: OK: build dns.4.4.1 (runc: 3.6s, disk: 59KB) 2026-06-16 14:12.54: Job succeeded