(not at the head of any monitored branch or PR)
2022-07-26 15:58.08: New job: test dns.4.3.0 with ounit2.2.2.0, using opam dev
                              from https://github.com/ocaml/opam-repository.git#refs/pull/21354/head (10b49fadb0efcff442ed8cae85f7cc119fe28629)
                              on debian-11-ocaml-4.14/amd64

To reproduce locally:

git clone --recursive "https://github.com/ocaml/opam-repository.git" && cd "opam-repository" && git fetch origin "refs/pull/21354/head" && git reset --hard 10b49fad
git fetch origin master
git merge 42e749bdca1e36a9f7bbef60b3507d34c6c57fa3
cat > ../Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:debian-11-ocaml-4.14@sha256:1461d919411f5999f6d7ffd573b9b5385cda91accf83d3866b26097e791220be
USER 1000:1000
WORKDIR /home/opam
RUN for pkg in $(opam pin list --short); do opam pin remove "$pkg"; done
RUN opam repository remove -a multicore || true
RUN sudo ln -f /usr/bin/opam-dev /usr/bin/opam
RUN opam init --reinit -ni
ENV OPAMDOWNLOADJOBS="1"
ENV OPAMERRLOGLEN="0"
ENV OPAMSOLVERTIMEOUT="500"
ENV OPAMPRECISETRACKING="1"
RUN rm -rf opam-repository/
COPY --chown=1000:1000 . opam-repository/
RUN opam repository set-url --strict default opam-repository/
RUN opam pin add -k version -yn ounit2.2.2.0 2.2.0
RUN opam update --depexts
RUN opam remove ounit2.2.2.0 && opam install --deps-only ounit2.2.2.0 && opam install -v ounit2.2.2.0; \
    res=$?; \
    test "$res" != 31 && exit "$res"; \
    export OPAMCLI=2.0; \
    build_dir=$(opam var prefix)/.opam-switch/build; \
    failed=$(ls "$build_dir"); \
    for pkg in $failed; do \
    if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-11\""; then \
    echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
    fi; \
    done; \
    exit 1
RUN opam update --depexts
RUN opam remove dns.4.3.0 && opam install --deps-only dns.4.3.0 && opam install -v dns.4.3.0; \
    res=$?; \
    test "$res" != 31 && exit "$res"; \
    export OPAMCLI=2.0; \
    build_dir=$(opam var prefix)/.opam-switch/build; \
    failed=$(ls "$build_dir"); \
    for pkg in $failed; do \
    if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-11\""; then \
    echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
    fi; \
    done; \
    exit 1
RUN opam update --depexts
RUN opam remove dns.4.3.0 && opam install --deps-only --with-test dns.4.3.0 && opam install -v --with-test dns.4.3.0; \
    res=$?; \
    test "$res" != 31 && exit "$res"; \
    export OPAMCLI=2.0; \
    build_dir=$(opam var prefix)/.opam-switch/build; \
    failed=$(ls "$build_dir"); \
    for pkg in $failed; do \
    if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-11\""; then \
    echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
    fi; \
    done; \
    exit 1

END-OF-DOCKERFILE
docker build -f ../Dockerfile .

2022-07-26 15:58.08: Using cache hint "ocaml/opam:debian-11-ocaml-4.14@sha256:1461d919411f5999f6d7ffd573b9b5385cda91accf83d3866b26097e791220be-ounit2.2.2.0-dns.4.3.0-10b49fadb0efcff442ed8cae85f7cc119fe28629"
2022-07-26 15:58.08: Using OBuilder spec:
((from ocaml/opam:debian-11-ocaml-4.14@sha256:1461d919411f5999f6d7ffd573b9b5385cda91accf83d3866b26097e791220be)
 (user (uid 1000) (gid 1000))
 (workdir /home/opam)
 (run (shell "for pkg in $(opam pin list --short); do opam pin remove \"$pkg\"; done"))
 (run (shell "opam repository remove -a multicore || true"))
 (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
 (run (shell "opam init --reinit --config .opamrc-sandbox -ni"))
 (env OPAMDOWNLOADJOBS 1)
 (env OPAMERRLOGLEN 0)
 (env OPAMSOLVERTIMEOUT 500)
 (env OPAMPRECISETRACKING 1)
 (run (shell "rm -rf opam-repository/"))
 (copy (src .) (dst opam-repository/))
 (run (shell "opam repository set-url --strict default opam-repository/"))
 (run (shell "opam pin add -k version -yn ounit2.2.2.0 2.2.0"))
 (run (network host)
      (shell "opam update --depexts"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell  "opam remove ounit2.2.2.0 && opam install --deps-only ounit2.2.2.0 && opam install -v ounit2.2.2.0;\
             \n        res=$?;\
             \n        test \"$res\" != 31 && exit \"$res\";\
             \n        export OPAMCLI=2.0;\
             \n        build_dir=$(opam var prefix)/.opam-switch/build;\
             \n        failed=$(ls \"$build_dir\");\
             \n        for pkg in $failed; do\
             \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-11\\\"\"; then\
             \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
             \n          fi;\
             \n        done;\
             \n        exit 1"))
 (run (network host)
      (shell "opam update --depexts"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell  "opam remove dns.4.3.0 && opam install --deps-only dns.4.3.0 && opam install -v dns.4.3.0;\
             \n        res=$?;\
             \n        test \"$res\" != 31 && exit \"$res\";\
             \n        export OPAMCLI=2.0;\
             \n        build_dir=$(opam var prefix)/.opam-switch/build;\
             \n        failed=$(ls \"$build_dir\");\
             \n        for pkg in $failed; do\
             \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-11\\\"\"; then\
             \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
             \n          fi;\
             \n        done;\
             \n        exit 1"))
 (run (network host)
      (shell "opam update --depexts"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell  "opam remove dns.4.3.0 && opam install --deps-only --with-test dns.4.3.0 && opam install -v --with-test dns.4.3.0;\
             \n        res=$?;\
             \n        test \"$res\" != 31 && exit \"$res\";\
             \n        export OPAMCLI=2.0;\
             \n        build_dir=$(opam var prefix)/.opam-switch/build;\
             \n        failed=$(ls \"$build_dir\");\
             \n        for pkg in $failed; do\
             \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-11\\\"\"; then\
             \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
             \n          fi;\
             \n        done;\
             \n        exit 1"))
)

2022-07-26 15:58.08: Waiting for resource in pool OCluster
2022-07-27 05:15.18: Waiting for worker...
2022-07-27 05:16.44: Got resource from pool OCluster
Building on laodoke.ocamllabs.io
All commits already cached
Updating files:  24% (6681/26809)
Updating files:  25% (6703/26809)
Updating files:  26% (6971/26809)
Updating files:  27% (7239/26809)
Updating files:  28% (7507/26809)
Updating files:  29% (7775/26809)
Updating files:  30% (8043/26809)
Updating files:  31% (8311/26809)
Updating files:  32% (8579/26809)
Updating files:  33% (8847/26809)
Updating files:  34% (9116/26809)
Updating files:  35% (9384/26809)
Updating files:  36% (9652/26809)
Updating files:  37% (9920/26809)
Updating files:  38% (10188/26809)
Updating files:  39% (10456/26809)
Updating files:  40% (10724/26809)
Updating files:  41% (10992/26809)
Updating files:  42% (11260/26809)
Updating files:  43% (11528/26809)
Updating files:  44% (11796/26809)
Updating files:  45% (12065/26809)
Updating files:  46% (12333/26809)
Updating files:  46% (12337/26809)
Updating files:  47% (12601/26809)
Updating files:  48% (12869/26809)
Updating files:  49% (13137/26809)
Updating files:  50% (13405/26809)
Updating files:  51% (13673/26809)
Updating files:  52% (13941/26809)
Updating files:  53% (14209/26809)
Updating files:  54% (14477/26809)
Updating files:  55% (14745/26809)
Updating files:  56% (15014/26809)
Updating files:  57% (15282/26809)
Updating files:  58% (15550/26809)
Updating files:  59% (15818/26809)
Updating files:  60% (16086/26809)
Updating files:  61% (16354/26809)
Updating files:  62% (16622/26809)
Updating files:  63% (16890/26809)
Updating files:  64% (17158/26809)
Updating files:  65% (17426/26809)
Updating files:  66% (17694/26809)
Updating files:  67% (17963/26809)
Updating files:  68% (18231/26809)
Updating files:  69% (18499/26809)
Updating files:  70% (18767/26809)
Updating files:  70% (18782/26809)
Updating files:  71% (19035/26809)
Updating files:  72% (19303/26809)
Updating files:  73% (19571/26809)
Updating files:  74% (19839/26809)
Updating files:  75% (20107/26809)
Updating files:  76% (20375/26809)
Updating files:  77% (20643/26809)
Updating files:  78% (20912/26809)
Updating files:  79% (21180/26809)
Updating files:  80% (21448/26809)
Updating files:  81% (21716/26809)
Updating files:  82% (21984/26809)
Updating files:  83% (22252/26809)
Updating files:  84% (22520/26809)
Updating files:  85% (22788/26809)
Updating files:  86% (23056/26809)
Updating files:  87% (23324/26809)
Updating files:  88% (23592/26809)
Updating files:  89% (23861/26809)
Updating files:  90% (24129/26809)
Updating files:  91% (24397/26809)
Updating files:  92% (24665/26809)
Updating files:  93% (24933/26809)
Updating files:  94% (25201/26809)
Updating files:  95% (25469/26809)
Updating files:  96% (25737/26809)
Updating files:  96% (25866/26809)
Updating files:  97% (26005/26809)
Updating files:  98% (26273/26809)
Updating files:  99% (26541/26809)
Updating files: 100% (26809/26809)
Updating files: 100% (26809/26809), done.
HEAD is now at 42e749bdca Merge pull request #21885 from kit-ty-kate/fix-123
Merge made by the 'ort' strategy.
Auto packing the repository in the background for optimum performance.
See "git help gc" for manual housekeeping.
warning: The last gc run reported the following. Please correct the root cause
and remove .git/gc.log
Automatic cleanup will not be performed until the file is removed.

warning: There are too many unreachable loose objects; run 'git prune' to remove them.

 packages/ounit2/ounit2.2.2.0/opam | 3 +++
 packages/ounit2/ounit2.2.2.1/opam | 3 +++
 packages/ounit2/ounit2.2.2.2/opam | 3 +++
 packages/ounit2/ounit2.2.2.3/opam | 3 +++
 packages/ounit2/ounit2.2.2.4/opam | 3 +++
 packages/ounit2/ounit2.2.2.5/opam | 3 +++
 packages/ounit2/ounit2.2.2.6/opam | 3 +++
 7 files changed, 21 insertions(+)

(from ocaml/opam:debian-11-ocaml-4.14@sha256:1461d919411f5999f6d7ffd573b9b5385cda91accf83d3866b26097e791220be)
2022-07-27 05:17.32 ---> using "d837bbe1b6e58c32e942b55a1eb695ef30d2cac63c8a5d708beb3548d17192b4" from cache

/: (user (uid 1000) (gid 1000))

/: (workdir /home/opam)

/home/opam: (run (shell "for pkg in $(opam pin list --short); do opam pin remove \"$pkg\"; done"))
Ok, ocaml-base-compiler is no longer pinned to https://github.com/ocaml/ocaml/archive/4.14.0.tar.gz (version 4.14.0)
No package build needed.
Nothing to do.
# Run eval $(opam env) to update the current shell environment
2022-07-27 05:17.32 ---> using "543d29c04ee698e03faf7cfdc4bb3cf9e04a80ab924d981f1055393f1479d117" from cache

/home/opam: (run (shell "opam repository remove -a multicore || true"))
[WARNING] No configured repositories by these names found: multicore
2022-07-27 05:17.32 ---> using "e8a5c58b05459f7be98d7b03e29623d3a05b15b34833b50ebffb60eff7871cde" from cache

/home/opam: (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
2022-07-27 05:17.32 ---> using "4687a20afa7557b4b2498b537430ed75c7b51cd6cad60d9c4757ff852befb1a7" from cache

/home/opam: (run (shell "opam init --reinit --config .opamrc-sandbox -ni"))
Configuring from /home/opam/.opamrc-sandbox, then /home/opam/.opamrc, and finally from built-in defaults.
Checking for available remotes: rsync and local, git.
  - you won't be able to use mercurial repositories unless you install the hg command on your system.
  - you won't be able to use darcs repositories unless you install the darcs command on your system.

This development version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.1, which can't be reverted.
You may want to back it up before going further.

Continue? [y/n] y
Format upgrade done.

<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
2022-07-27 05:17.32 ---> using "87c4051d859f505ce794fbdc2ed87105744babed536dd4b09731a9b1e22fd3d4" from cache

/home/opam: (env OPAMDOWNLOADJOBS 1)

/home/opam: (env OPAMERRLOGLEN 0)

/home/opam: (env OPAMSOLVERTIMEOUT 500)

/home/opam: (env OPAMPRECISETRACKING 1)

/home/opam: (run (shell "rm -rf opam-repository/"))
2022-07-27 05:17.32 ---> using "96a067e6b08152c0f77ff1628817c13e12ac3db1ba1ac882a90278edcbb3d011" from cache

/home/opam: (copy (src .) (dst opam-repository/))
2022-07-27 05:17.34 ---> using "5ce106567f73501cd746c3358ba50b49e5b3ad28d47e7894c1f65b44fcda87e7" from cache

/home/opam: (run (shell "opam repository set-url --strict default opam-repository/"))
[default] Initialised
2022-07-27 05:17.34 ---> using "0981e55d831537155c9e161d0ab37d0aeee18cf4c3d1dbad8143304b4c508a5d" from cache

/home/opam: (run (shell "opam pin add -k version -yn ounit2.2.2.0 2.2.0"))
ounit2 is now pinned to version 2.2.0
2022-07-27 05:17.34 ---> using "a5b811fe2c6ab2fd90efb98285ea9db0346a5de8dadc9481e3cd36fb68f11371" from cache

/home/opam: (run (network host)
                 (shell "opam update --depexts"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian bullseye InRelease
- Get:2 http://deb.debian.org/debian-security bullseye-security InRelease [48.4 kB]
- Get:3 http://deb.debian.org/debian bullseye-updates InRelease [44.1 kB]
- Get:4 http://deb.debian.org/debian-security bullseye-security/main amd64 Packages [168 kB]
- Fetched 261 kB in 0s (574 kB/s)
- Reading package lists...
- 
2022-07-27 05:17.34 ---> using "db2d7bb6f3a492dbe20e0d4ddb4733d768da5e64ce8f97c3cbc89325acd13b48" from cache

/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
                 (network host)
                 (shell  "opam remove ounit2.2.2.0 && opam install --deps-only ounit2.2.2.0 && opam install -v ounit2.2.2.0;\
                        \n        res=$?;\
                        \n        test \"$res\" != 31 && exit \"$res\";\
                        \n        export OPAMCLI=2.0;\
                        \n        build_dir=$(opam var prefix)/.opam-switch/build;\
                        \n        failed=$(ls \"$build_dir\");\
                        \n        for pkg in $failed; do\
                        \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-11\\\"\"; then\
                        \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
                        \n          fi;\
                        \n        done;\
                        \n        exit 1"))
[NOTE] ounit2.2.2.0 is not installed.

Nothing to do.
The following actions will be performed:
=== install 4 packages
  - install base-bytes   base  [required by ounit2]
  - install dune         3.4.1 [required by ounit2]
  - install ocamlfind    1.9.5 [required by base-bytes]
  - install stdlib-shims 0.3.0 [required by ounit2]

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved dune.3.4.1  (cached)
-> retrieved ocamlfind.1.9.5  (cached)
-> retrieved stdlib-shims.0.3.0  (cached)
-> installed ocamlfind.1.9.5
-> installed base-bytes.base
-> installed dune.3.4.1
-> installed stdlib-shims.0.3.0
Done.
# Run eval $(opam env) to update the current shell environment
The following actions will be performed:
=== install 1 package
  - install ounit2 2.2.0 (pinned)

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing  1/3:
-> retrieved ounit2.2.2.0  (cached)
Processing  2/3: [ounit2: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "ounit2" "-j" "31" (CWD=/home/opam/.opam/4.14/.opam-switch/build/ounit2.2.2.0)
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/byte -I /home/opam/.opam/4.14/lib/stdlib-shims -no-alias-deps -o src/lib/ounit2/advanced/.oUnitAdvanced.objs/byte/oUnitAssert.cmo -c -impl src/lib/ounit2/advanced/oUnitAssert.ml)
- File "src/lib/ounit2/advanced/oUnitAssert.ml", line 130, characters 13-27:
- 130 |     ?(sinput=Stream.of_list [])
-                    ^^^^^^^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- File "src/lib/ounit2/advanced/oUnitAssert.ml", line 270, characters 13-24:
- 270 |              Stream.iter
-                    ^^^^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- File "src/lib/ounit2/advanced/oUnitAssert.ml", line 315, characters 26-43:
- 315 |                  foutput (Stream.of_channel chn)
-                                 ^^^^^^^^^^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlopt.opt -w -40 -g -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/byte -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/native -I /home/opam/.opam/4.14/lib/stdlib-shims -intf-suffix .ml -no-alias-deps -o src/lib/ounit2/advanced/.oUnitAdvanced.objs/native/oUnitAssert.cmx -c -impl src/lib/ounit2/advanced/oUnitAssert.ml)
- File "src/lib/ounit2/advanced/oUnitAssert.ml", line 130, characters 13-27:
- 130 |     ?(sinput=Stream.of_list [])
-                    ^^^^^^^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- File "src/lib/ounit2/advanced/oUnitAssert.ml", line 270, characters 13-24:
- 270 |              Stream.iter
-                    ^^^^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- File "src/lib/ounit2/advanced/oUnitAssert.ml", line 315, characters 26-43:
- 315 |                  foutput (Stream.of_channel chn)
-                                 ^^^^^^^^^^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I src/lib/ounit2/.oUnit.objs/byte -I /home/opam/.opam/4.14/lib/stdlib-shims -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/byte -no-alias-deps -o src/lib/ounit2/.oUnit.objs/byte/oUnit2.cmi -c -intf src/lib/ounit2/oUnit2.mli)
- File "src/lib/ounit2/oUnit2.mli", line 88, characters 17-25:
- 88 |     ?sinput:char Stream.t ->
-                       ^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- File "src/lib/ounit2/oUnit2.mli", line 89, characters 19-27:
- 89 |     ?foutput:(char Stream.t -> unit) ->
-                         ^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I src/lib/ounit2/.oUnit.objs/byte -I /home/opam/.opam/4.14/lib/stdlib-shims -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/byte -no-alias-deps -o src/lib/ounit2/.oUnit.objs/byte/oUnit.cmi -c -intf src/lib/ounit2/oUnit.mli)
- File "src/lib/ounit2/oUnit.mli", line 80, characters 17-25:
- 80 |     ?sinput:char Stream.t ->
-                       ^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- File "src/lib/ounit2/oUnit.mli", line 81, characters 19-27:
- 81 |     ?foutput:(char Stream.t -> unit) ->
-                         ^^^^^^^^
- Alert deprecated: module Stdlib.Stream
- Use the camlp-streams library instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I src/lib/ounit2/threads/.oUnitThreads.objs/byte -I src/lib/ounit2/threads/.oUnitThreads.objs/public_cmi -I /home/opam/.opam/4.14/lib/ocaml/threads -I /home/opam/.opam/4.14/lib/stdlib-shims -I src/lib/ounit2/.oUnit.objs/byte -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/byte -no-alias-deps -open OUnitThreads__ -o src/lib/ounit2/threads/.oUnitThreads.objs/byte/oUnitThreads__OUnitRunnerThreads.cmo -c -impl src/lib/ounit2/threads/oUnitRunnerThreads.ml)
- File "src/lib/ounit2/threads/oUnitRunnerThreads.ml", line 147, characters 8-19:
- 147 |         Thread.kill thread;
-               ^^^^^^^^^^^
- Alert deprecated: Thread.kill
- Not implemented, do not use
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlopt.opt -w -40 -g -I src/lib/ounit2/threads/.oUnitThreads.objs/byte -I src/lib/ounit2/threads/.oUnitThreads.objs/native -I src/lib/ounit2/threads/.oUnitThreads.objs/public_cmi -I /home/opam/.opam/4.14/lib/ocaml/threads -I /home/opam/.opam/4.14/lib/stdlib-shims -I src/lib/ounit2/.oUnit.objs/byte -I src/lib/ounit2/.oUnit.objs/native -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/byte -I src/lib/ounit2/advanced/.oUnitAdvanced.objs/native -intf-suffix .ml -no-alias-deps -open OUnitThreads__ -o src/lib/ounit2/threads/.oUnitThreads.objs/native/oUnitThreads__OUnitRunnerThreads.cmx -c -impl src/lib/ounit2/threads/oUnitRunnerThreads.ml)
- File "src/lib/ounit2/threads/oUnitRunnerThreads.ml", line 147, characters 8-19:
- 147 |         Thread.kill thread;
-               ^^^^^^^^^^^
- Alert deprecated: Thread.kill
- Not implemented, do not use
-> compiled  ounit2.2.2.0
-> installed ounit2.2.2.0
Done.
# Run eval $(opam env) to update the current shell environment
2022-07-27 05:17.34 ---> using "549816a256be73d9a20d8aac9e10b779e4fdffd8e09de149b8d5e327ac84c14f" from cache

/home/opam: (run (network host)
                 (shell "opam update --depexts"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian bullseye InRelease
- Hit:2 http://deb.debian.org/debian-security bullseye-security InRelease
- Hit:3 http://deb.debian.org/debian bullseye-updates InRelease
- Reading package lists...
- 
2022-07-27 05:17.34 ---> using "ed77e423a302c60a5809ee2b791a97889b346ae238a3ae55d40f898cb095304c" from cache

/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
                 (network host)
                 (shell  "opam remove dns.4.3.0 && opam install --deps-only dns.4.3.0 && opam install -v dns.4.3.0;\
                        \n        res=$?;\
                        \n        test \"$res\" != 31 && exit \"$res\";\
                        \n        export OPAMCLI=2.0;\
                        \n        build_dir=$(opam var prefix)/.opam-switch/build;\
                        \n        failed=$(ls \"$build_dir\");\
                        \n        for pkg in $failed; do\
                        \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-11\\\"\"; then\
                        \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
                        \n          fi;\
                        \n        done;\
                        \n        exit 1"))
[NOTE] dns.4.3.0 is not installed.

Nothing to do.
The following actions will be performed:
=== install 17 packages
  - install astring         0.8.5  [required by dns]
  - install bigarray-compat 1.1.0  [required by cstruct]
  - install cstruct         6.0.1  [required by dns]
  - install domain-name     0.4.0  [required by dns]
  - install duration        0.2.0  [required by dns]
  - install fmt             0.9.0  [required by dns]
  - install gmap            0.3.0  [required by dns]
  - install ipaddr          5.3.1  [required by dns]
  - install logs            0.7.0  [required by dns]
  - install lru             0.3.0  [required by dns]
  - install macaddr         5.3.1  [required by ipaddr]
  - install ocamlbuild      0.14.1 [required by ptime, fmt, astring, etc.]
  - install psq             0.2.0  [required by lru]
  - install ptime           1.0.0  [required by dns]
  - install rresult         0.7.0  [required by dns]
  - install seq             base   [required by psq]
  - install topkg           1.0.5  [required by ptime, fmt, astring, etc.]

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved astring.0.8.5  (cached)
-> retrieved bigarray-compat.1.1.0  (cached)
-> retrieved cstruct.6.0.1  (cached)
-> retrieved domain-name.0.4.0  (cached)
-> retrieved duration.0.2.0  (cached)
-> retrieved fmt.0.9.0  (cached)
-> retrieved gmap.0.3.0  (cached)
-> retrieved ipaddr.5.3.1, macaddr.5.3.1  (cached)
-> retrieved logs.0.7.0  (cached)
-> retrieved lru.0.3.0  (cached)
-> retrieved ocamlbuild.0.14.1  (cached)
-> retrieved psq.0.2.0  (cached)
-> retrieved ptime.1.0.0  (cached)
-> retrieved rresult.0.7.0  (cached)
-> installed seq.base
-> retrieved topkg.1.0.5  (cached)
-> installed duration.0.2.0
-> installed gmap.0.3.0
-> installed domain-name.0.4.0
-> installed bigarray-compat.1.1.0
-> installed macaddr.5.3.1
-> installed psq.0.2.0
-> installed cstruct.6.0.1
-> installed lru.0.3.0
-> installed ipaddr.5.3.1
-> installed ocamlbuild.0.14.1
-> installed topkg.1.0.5
-> installed rresult.0.7.0
-> installed fmt.0.9.0
-> installed ptime.1.0.0
-> installed astring.0.8.5
-> installed logs.0.7.0
Done.
# Run eval $(opam env) to update the current shell environment
The following actions will be performed:
=== install 1 package
  - install dns 4.3.0

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing  1/3:
-> retrieved dns.4.3.0  (cached)
Processing  2/3: [dns: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "dns" "-j" "31" (CWD=/home/opam/.opam/4.14/.opam-switch/build/dns.4.3.0)
- File "dune-project", line 4, characters 14-17:
- 4 | (using menhir 2.0)
-                   ^^^
- Warning: Version 2.0 of the menhir extension is not supported until version
- 1.4 of the dune language.
- Supported versions of this extension in version 1.2 of the dune language:
- - 1.0
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I cache/.dns_cache.objs/byte -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/duration -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/lru -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/psq -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/lib/rresult -I /home/opam/.opam/4.14/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 122, characters 32-36:
- 122 | 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 140, characters 24-30:
- 140 |   | `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 140, characters 32-36:
- 140 |   | `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 141, characters 26-32:
- 141 |   | `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 141, characters 34-38:
- 141 |   | `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 142, characters 26-32:
- 142 |   | `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 142, characters 34-38:
- 142 |   | `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/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I src/.dns.objs/byte -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/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 769, characters 39-43:
- 769 |       t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
-                                              ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 783, characters 59-67:
- 783 |     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 822, characters 41-49:
- 822 |     | 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 845, characters 41-49:
- 845 |     | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 867, characters 41-49:
- 867 |     | 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 913, characters 12-23:
- 913 |     let l = Cstruct.len tlsa.data in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 939, characters 41-49:
- 939 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 961, characters 41-49:
- 961 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 998, characters 12-23:
- 998 |     let l = Cstruct.len sshfp.fingerprint in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1078, characters 17-25:
- 1078 |          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 1104, characters 30-38:
- 1104 |       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 1157, characters 25-29:
- 1157 |       Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1171, characters 11-22:
- 1171 |     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 1173, characters 39-47:
- 1173 |     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 1176, characters 11-22:
- 1176 |     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 1179, characters 11-22:
- 1179 |     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 1184, characters 11-22:
- 1184 |     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 1192, characters 11-22:
- 1192 |     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 1242, characters 18-29:
- 1242 |     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 1300, characters 16-27:
- 1300 |       let len = Cstruct.len t.mac in
-                        ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1310, characters 35-46:
- 1310 |       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 1337, characters 70-74:
- 1337 |     | 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 1384, characters 12-23:
- 1384 |     let l = Cstruct.len v in
-                    ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1405, characters 46-54:
- 1405 |          | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
-                                                      ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1455, characters 23-27:
- 1455 |            (list ~sep:(unit ", ") pp_extension) opt.extensions)
-                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1472, characters 11-22:
- 1472 |     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 1835, characters 30-41:
- 1835 |       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 1836, characters 25-36:
- 1836 |       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 1864, characters 31-37:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                       ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1864, characters 39-43:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1869, characters 10-18:
- 1869 |         [ 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 1872, characters 12-20:
- 1872 |             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 1876, characters 12-20:
- 1876 |             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 1879, characters 10-18:
- 1879 |         [ 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 1881, characters 10-18:
- 1881 |         [ 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 1889, characters 12-20:
- 1889 |             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 1893, characters 10-18:
- 1893 |           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 1897, characters 12-20:
- 1897 |             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 1901, characters 12-20:
- 1901 |             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 1908, characters 12-20:
- 1908 |             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 1916, characters 12-20:
- 1916 |             Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
-                    ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1923, characters 12-20:
- 1923 |             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 1932, characters 12-20:
- 1932 |             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 1939, characters 12-20:
- 1939 |             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 2000, characters 11-22:
- 2000 |     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 2006, characters 24-32:
- 2006 |       (`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 2007, characters 11-22:
- 2007 |     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 2069, characters 24-28:
- 2069 |         Fmt.(list ~sep:(unit "@.") string) ppf
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2183, characters 24-28:
- 2183 |         Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2207, characters 13-24:
- 2207 |       guard (Cstruct.len buf >= len) `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2318, characters 11-22:
- 2318 |     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 2374, characters 49-57:
- 2374 |       | `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 2376, characters 43-51:
- 2376 |       | _ -> 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 2395, characters 30-38:
- 2395 |       (`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 2401, characters 36-44:
- 2401 |       Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
-                                            ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2436, characters 26-34:
- 2436 |         (`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 2441, characters 26-34:
- 2441 |         (`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 2444, characters 35-43:
- 2444 |     | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
-                                           ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2537, characters 24-32:
- 2537 |         (`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 2631, characters 24-32:
- 2631 |         (`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 2734, characters 13-24:
- 2734 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2736, characters 41-49:
- 2736 |       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 2738, characters 54-62:
- 2738 |       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 2748, characters 37-45:
- 2748 |       | _ -> 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 2803, characters 13-24:
- 2803 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2806, characters 54-62:
- 2806 |       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 2807, characters 52-60:
- 2807 |       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 2825, characters 37-45:
- 2825 |       | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
-                                             ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2861, characters 24-28:
- 2861 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2862, characters 27-31:
- 2862 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2863, characters 30-34:
- 2863 |                   (list ~sep:(unit ", ") pp_prereq)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2865, characters 24-28:
- 2865 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2866, characters 27-31:
- 2866 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2867, characters 30-34:
- 2867 |                   (list ~sep:(unit ", ") pp_update)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2880, characters 26-34:
- 2880 |         (`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 2917, characters 63-67:
- 2917 |     | `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 2949, characters 27-31:
- 2949 |         Fmt.(option ~none:(unit "no data") Answer.pp) q
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3020, characters 25-29:
- 3020 |       Fmt.(option ~none:(unit "no") Edns.pp) t.edns
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3021, characters 25-29:
- 3021 |       Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3078, characters 10-21:
- 3078 |       (if Cstruct.len buf > off then
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3079, characters 17-28:
- 3079 |          let n = Cstruct.len buf - off in
-                         ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3138, characters 45-53:
- 3138 |           | 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 3145, characters 55-63:
- 3145 |                   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 3149, characters 55-63:
- 3149 |                   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 3164, characters 47-55:
- 3164 |             | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
-                                                       ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3295, characters 10-21:
- 3295 |           Cstruct.len buf, true
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3315, characters 7-18:
- 3315 |     if Cstruct.len buf < 12 then
-               ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlopt.opt -w -40 -g -I src/.dns.objs/byte -I src/.dns.objs/native -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/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 769, characters 39-43:
- 769 |       t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
-                                              ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 783, characters 59-67:
- 783 |     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 822, characters 41-49:
- 822 |     | 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 845, characters 41-49:
- 845 |     | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 867, characters 41-49:
- 867 |     | 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 913, characters 12-23:
- 913 |     let l = Cstruct.len tlsa.data in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 939, characters 41-49:
- 939 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 961, characters 41-49:
- 961 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 998, characters 12-23:
- 998 |     let l = Cstruct.len sshfp.fingerprint in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1078, characters 17-25:
- 1078 |          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 1104, characters 30-38:
- 1104 |       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 1157, characters 25-29:
- 1157 |       Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1171, characters 11-22:
- 1171 |     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 1173, characters 39-47:
- 1173 |     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 1176, characters 11-22:
- 1176 |     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 1179, characters 11-22:
- 1179 |     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 1184, characters 11-22:
- 1184 |     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 1192, characters 11-22:
- 1192 |     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 1242, characters 18-29:
- 1242 |     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 1300, characters 16-27:
- 1300 |       let len = Cstruct.len t.mac in
-                        ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1310, characters 35-46:
- 1310 |       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 1337, characters 70-74:
- 1337 |     | 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 1384, characters 12-23:
- 1384 |     let l = Cstruct.len v in
-                    ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1405, characters 46-54:
- 1405 |          | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
-                                                      ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1455, characters 23-27:
- 1455 |            (list ~sep:(unit ", ") pp_extension) opt.extensions)
-                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1472, characters 11-22:
- 1472 |     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 1835, characters 30-41:
- 1835 |       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 1836, characters 25-36:
- 1836 |       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 1864, characters 31-37:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                       ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1864, characters 39-43:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1869, characters 10-18:
- 1869 |         [ 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 1872, characters 12-20:
- 1872 |             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 1876, characters 12-20:
- 1876 |             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 1879, characters 10-18:
- 1879 |         [ 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 1881, characters 10-18:
- 1881 |         [ 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 1889, characters 12-20:
- 1889 |             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 1893, characters 10-18:
- 1893 |           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 1897, characters 12-20:
- 1897 |             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 1901, characters 12-20:
- 1901 |             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 1908, characters 12-20:
- 1908 |             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 1916, characters 12-20:
- 1916 |             Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
-                    ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1923, characters 12-20:
- 1923 |             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 1932, characters 12-20:
- 1932 |             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 1939, characters 12-20:
- 1939 |             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 2000, characters 11-22:
- 2000 |     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 2006, characters 24-32:
- 2006 |       (`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 2007, characters 11-22:
- 2007 |     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 2069, characters 24-28:
- 2069 |         Fmt.(list ~sep:(unit "@.") string) ppf
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2183, characters 24-28:
- 2183 |         Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2207, characters 13-24:
- 2207 |       guard (Cstruct.len buf >= len) `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2318, characters 11-22:
- 2318 |     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 2374, characters 49-57:
- 2374 |       | `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 2376, characters 43-51:
- 2376 |       | _ -> 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 2395, characters 30-38:
- 2395 |       (`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 2401, characters 36-44:
- 2401 |       Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
-                                            ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2436, characters 26-34:
- 2436 |         (`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 2441, characters 26-34:
- 2441 |         (`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 2444, characters 35-43:
- 2444 |     | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
-                                           ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2537, characters 24-32:
- 2537 |         (`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 2631, characters 24-32:
- 2631 |         (`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 2734, characters 13-24:
- 2734 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2736, characters 41-49:
- 2736 |       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 2738, characters 54-62:
- 2738 |       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 2748, characters 37-45:
- 2748 |       | _ -> 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 2803, characters 13-24:
- 2803 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2806, characters 54-62:
- 2806 |       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 2807, characters 52-60:
- 2807 |       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 2825, characters 37-45:
- 2825 |       | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
-                                             ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2861, characters 24-28:
- 2861 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2862, characters 27-31:
- 2862 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2863, characters 30-34:
- 2863 |                   (list ~sep:(unit ", ") pp_prereq)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2865, characters 24-28:
- 2865 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2866, characters 27-31:
- 2866 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2867, characters 30-34:
- 2867 |                   (list ~sep:(unit ", ") pp_update)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2880, characters 26-34:
- 2880 |         (`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 2917, characters 63-67:
- 2917 |     | `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 2949, characters 27-31:
- 2949 |         Fmt.(option ~none:(unit "no data") Answer.pp) q
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3020, characters 25-29:
- 3020 |       Fmt.(option ~none:(unit "no") Edns.pp) t.edns
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3021, characters 25-29:
- 3021 |       Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3078, characters 10-21:
- 3078 |       (if Cstruct.len buf > off then
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3079, characters 17-28:
- 3079 |          let n = Cstruct.len buf - off in
-                         ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3138, characters 45-53:
- 3138 |           | 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 3145, characters 55-63:
- 3145 |                   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 3149, characters 55-63:
- 3149 |                   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 3164, characters 47-55:
- 3164 |             | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
-                                                       ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3295, characters 10-21:
- 3295 |           Cstruct.len buf, true
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3315, characters 7-18:
- 3315 |     if Cstruct.len buf < 12 then
-               ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlopt.opt -w -40 -g -I cache/.dns_cache.objs/byte -I cache/.dns_cache.objs/native -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/duration -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/lru -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/psq -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/lib/rresult -I /home/opam/.opam/4.14/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 122, characters 32-36:
- 122 | 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 140, characters 24-30:
- 140 |   | `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 140, characters 32-36:
- 140 |   | `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 141, characters 26-32:
- 141 |   | `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 141, characters 34-38:
- 141 |   | `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 142, characters 26-32:
- 142 |   | `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 142, characters 34-38:
- 142 |   | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns
-                                         ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
-> compiled  dns.4.3.0
-> installed dns.4.3.0
Done.
# Run eval $(opam env) to update the current shell environment
2022-07-27 05:18.24 ---> saved as "4aa08e51e70bbb78a45aba6cb2fcc9bd52f8dcdfdce8fb70b7ac5bb7a1a9225b"

/home/opam: (run (network host)
                 (shell "opam update --depexts"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian bullseye InRelease
- Hit:2 http://deb.debian.org/debian-security bullseye-security InRelease
- Hit:3 http://deb.debian.org/debian bullseye-updates InRelease
- Reading package lists...
- 
2022-07-27 05:18.26 ---> saved as "48609b0e5b38d37fb334e5bd479e4c18a23acc0162d50bada6c3fd892d4d5aca"

/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
                 (network host)
                 (shell  "opam remove dns.4.3.0 && opam install --deps-only --with-test dns.4.3.0 && opam install -v --with-test dns.4.3.0;\
                        \n        res=$?;\
                        \n        test \"$res\" != 31 && exit \"$res\";\
                        \n        export OPAMCLI=2.0;\
                        \n        build_dir=$(opam var prefix)/.opam-switch/build;\
                        \n        failed=$(ls \"$build_dir\");\
                        \n        for pkg in $failed; do\
                        \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-11\\\"\"; then\
                        \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
                        \n          fi;\
                        \n        done;\
                        \n        exit 1"))
The following actions will be performed:
=== remove 1 package
  - remove dns 4.3.0

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> removed   dns.4.3.0
Done.
# Run eval $(opam env) to update the current shell environment
The following actions will be performed:
=== recompile 2 packages
  - recompile fmt                0.9.0  [uses cmdliner]
  - recompile logs               0.7.0  [uses cmdliner]
=== install 5 packages
  - install   alcotest           1.6.0  [required by dns]
  - install   cmdliner           1.1.1  [required by alcotest]
  - install   ocaml-syntax-shims 1.0.0  [required by alcotest]
  - install   re                 1.10.4 [required by alcotest]
  - install   uutf               1.0.3  [required by alcotest]

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved alcotest.1.6.0  (cached)
-> retrieved cmdliner.1.1.1  (cached)
-> retrieved fmt.0.9.0  (cached)
-> retrieved logs.0.7.0  (cached)
-> retrieved ocaml-syntax-shims.1.0.0  (cached)
-> retrieved re.1.10.4  (cached)
-> retrieved uutf.1.0.3  (cached)
-> installed re.1.10.4
-> installed ocaml-syntax-shims.1.0.0
-> removed   logs.0.7.0
-> removed   fmt.0.9.0
-> installed cmdliner.1.1.1
-> installed uutf.1.0.3
-> installed fmt.0.9.0
-> installed alcotest.1.6.0
-> installed logs.0.7.0
Done.
# Run eval $(opam env) to update the current shell environment
The following actions will be performed:
=== install 1 package
  - install dns 4.3.0

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing  1/3:
-> retrieved dns.4.3.0  (cached)
Processing  2/3: [dns: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "dns" "-j" "31" (CWD=/home/opam/.opam/4.14/.opam-switch/build/dns.4.3.0)
- File "dune-project", line 4, characters 14-17:
- 4 | (using menhir 2.0)
-                   ^^^
- Warning: Version 2.0 of the menhir extension is not supported until version
- 1.4 of the dune language.
- Supported versions of this extension in version 1.2 of the dune language:
- - 1.0
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I cache/.dns_cache.objs/byte -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/duration -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/lru -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/psq -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/lib/rresult -I /home/opam/.opam/4.14/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 122, characters 32-36:
- 122 | 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 140, characters 24-30:
- 140 |   | `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 140, characters 32-36:
- 140 |   | `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 141, characters 26-32:
- 141 |   | `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 141, characters 34-38:
- 141 |   | `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 142, characters 26-32:
- 142 |   | `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 142, characters 34-38:
- 142 |   | `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/4.14/bin/ocamlc.opt -w -40 -g -bin-annot -I src/.dns.objs/byte -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/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 769, characters 39-43:
- 769 |       t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
-                                              ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 783, characters 59-67:
- 783 |     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 822, characters 41-49:
- 822 |     | 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 845, characters 41-49:
- 845 |     | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 867, characters 41-49:
- 867 |     | 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 913, characters 12-23:
- 913 |     let l = Cstruct.len tlsa.data in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 939, characters 41-49:
- 939 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 961, characters 41-49:
- 961 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 998, characters 12-23:
- 998 |     let l = Cstruct.len sshfp.fingerprint in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1078, characters 17-25:
- 1078 |          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 1104, characters 30-38:
- 1104 |       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 1157, characters 25-29:
- 1157 |       Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1171, characters 11-22:
- 1171 |     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 1173, characters 39-47:
- 1173 |     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 1176, characters 11-22:
- 1176 |     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 1179, characters 11-22:
- 1179 |     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 1184, characters 11-22:
- 1184 |     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 1192, characters 11-22:
- 1192 |     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 1242, characters 18-29:
- 1242 |     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 1300, characters 16-27:
- 1300 |       let len = Cstruct.len t.mac in
-                        ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1310, characters 35-46:
- 1310 |       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 1337, characters 70-74:
- 1337 |     | 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 1384, characters 12-23:
- 1384 |     let l = Cstruct.len v in
-                    ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1405, characters 46-54:
- 1405 |          | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
-                                                      ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1455, characters 23-27:
- 1455 |            (list ~sep:(unit ", ") pp_extension) opt.extensions)
-                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1472, characters 11-22:
- 1472 |     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 1835, characters 30-41:
- 1835 |       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 1836, characters 25-36:
- 1836 |       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 1864, characters 31-37:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                       ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1864, characters 39-43:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1869, characters 10-18:
- 1869 |         [ 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 1872, characters 12-20:
- 1872 |             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 1876, characters 12-20:
- 1876 |             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 1879, characters 10-18:
- 1879 |         [ 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 1881, characters 10-18:
- 1881 |         [ 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 1889, characters 12-20:
- 1889 |             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 1893, characters 10-18:
- 1893 |           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 1897, characters 12-20:
- 1897 |             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 1901, characters 12-20:
- 1901 |             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 1908, characters 12-20:
- 1908 |             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 1916, characters 12-20:
- 1916 |             Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
-                    ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1923, characters 12-20:
- 1923 |             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 1932, characters 12-20:
- 1932 |             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 1939, characters 12-20:
- 1939 |             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 2000, characters 11-22:
- 2000 |     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 2006, characters 24-32:
- 2006 |       (`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 2007, characters 11-22:
- 2007 |     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 2069, characters 24-28:
- 2069 |         Fmt.(list ~sep:(unit "@.") string) ppf
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2183, characters 24-28:
- 2183 |         Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2207, characters 13-24:
- 2207 |       guard (Cstruct.len buf >= len) `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2318, characters 11-22:
- 2318 |     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 2374, characters 49-57:
- 2374 |       | `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 2376, characters 43-51:
- 2376 |       | _ -> 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 2395, characters 30-38:
- 2395 |       (`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 2401, characters 36-44:
- 2401 |       Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
-                                            ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2436, characters 26-34:
- 2436 |         (`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 2441, characters 26-34:
- 2441 |         (`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 2444, characters 35-43:
- 2444 |     | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
-                                           ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2537, characters 24-32:
- 2537 |         (`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 2631, characters 24-32:
- 2631 |         (`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 2734, characters 13-24:
- 2734 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2736, characters 41-49:
- 2736 |       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 2738, characters 54-62:
- 2738 |       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 2748, characters 37-45:
- 2748 |       | _ -> 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 2803, characters 13-24:
- 2803 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2806, characters 54-62:
- 2806 |       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 2807, characters 52-60:
- 2807 |       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 2825, characters 37-45:
- 2825 |       | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
-                                             ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2861, characters 24-28:
- 2861 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2862, characters 27-31:
- 2862 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2863, characters 30-34:
- 2863 |                   (list ~sep:(unit ", ") pp_prereq)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2865, characters 24-28:
- 2865 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2866, characters 27-31:
- 2866 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2867, characters 30-34:
- 2867 |                   (list ~sep:(unit ", ") pp_update)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2880, characters 26-34:
- 2880 |         (`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 2917, characters 63-67:
- 2917 |     | `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 2949, characters 27-31:
- 2949 |         Fmt.(option ~none:(unit "no data") Answer.pp) q
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3020, characters 25-29:
- 3020 |       Fmt.(option ~none:(unit "no") Edns.pp) t.edns
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3021, characters 25-29:
- 3021 |       Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3078, characters 10-21:
- 3078 |       (if Cstruct.len buf > off then
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3079, characters 17-28:
- 3079 |          let n = Cstruct.len buf - off in
-                         ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3138, characters 45-53:
- 3138 |           | 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 3145, characters 55-63:
- 3145 |                   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 3149, characters 55-63:
- 3149 |                   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 3164, characters 47-55:
- 3164 |             | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
-                                                       ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3295, characters 10-21:
- 3295 |           Cstruct.len buf, true
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3315, characters 7-18:
- 3315 |     if Cstruct.len buf < 12 then
-               ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlopt.opt -w -40 -g -I src/.dns.objs/byte -I src/.dns.objs/native -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/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 769, characters 39-43:
- 769 |       t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
-                                              ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 783, characters 59-67:
- 783 |     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 822, characters 41-49:
- 822 |     | 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 845, characters 41-49:
- 845 |     | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 867, characters 41-49:
- 867 |     | 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 913, characters 12-23:
- 913 |     let l = Cstruct.len tlsa.data in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 939, characters 41-49:
- 939 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 961, characters 41-49:
- 961 |     | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x))
-                                                ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 998, characters 12-23:
- 998 |     let l = Cstruct.len sshfp.fingerprint in
-                   ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1078, characters 17-25:
- 1078 |          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 1104, characters 30-38:
- 1104 |       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 1157, characters 25-29:
- 1157 |       Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1171, characters 11-22:
- 1171 |     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 1173, characters 39-47:
- 1173 |     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 1176, characters 11-22:
- 1176 |     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 1179, characters 11-22:
- 1179 |     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 1184, characters 11-22:
- 1184 |     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 1192, characters 11-22:
- 1192 |     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 1242, characters 18-29:
- 1242 |     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 1300, characters 16-27:
- 1300 |       let len = Cstruct.len t.mac in
-                        ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1310, characters 35-46:
- 1310 |       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 1337, characters 70-74:
- 1337 |     | 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 1384, characters 12-23:
- 1384 |     let l = Cstruct.len v in
-                    ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1405, characters 46-54:
- 1405 |          | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
-                                                      ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1455, characters 23-27:
- 1455 |            (list ~sep:(unit ", ") pp_extension) opt.extensions)
-                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1472, characters 11-22:
- 1472 |     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 1835, characters 30-41:
- 1835 |       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 1836, characters 25-36:
- 1836 |       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 1864, characters 31-37:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                       ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1864, characters 39-43:
- 1864 |     let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
-                                               ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1869, characters 10-18:
- 1869 |         [ 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 1872, characters 12-20:
- 1872 |             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 1876, characters 12-20:
- 1876 |             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 1879, characters 10-18:
- 1879 |         [ 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 1881, characters 10-18:
- 1881 |         [ 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 1889, characters 12-20:
- 1889 |             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 1893, characters 10-18:
- 1893 |           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 1897, characters 12-20:
- 1897 |             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 1901, characters 12-20:
- 1901 |             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 1908, characters 12-20:
- 1908 |             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 1916, characters 12-20:
- 1916 |             Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
-                    ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1923, characters 12-20:
- 1923 |             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 1932, characters 12-20:
- 1932 |             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 1939, characters 12-20:
- 1939 |             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 2000, characters 11-22:
- 2000 |     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 2006, characters 24-32:
- 2006 |       (`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 2007, characters 11-22:
- 2007 |     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 2069, characters 24-28:
- 2069 |         Fmt.(list ~sep:(unit "@.") string) ppf
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2183, characters 24-28:
- 2183 |         Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2207, characters 13-24:
- 2207 |       guard (Cstruct.len buf >= len) `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2318, characters 11-22:
- 2318 |     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 2374, characters 49-57:
- 2374 |       | `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 2376, characters 43-51:
- 2376 |       | _ -> 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 2395, characters 30-38:
- 2395 |       (`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 2401, characters 36-44:
- 2401 |       Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
-                                            ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2436, characters 26-34:
- 2436 |         (`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 2441, characters 26-34:
- 2441 |         (`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 2444, characters 35-43:
- 2444 |     | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
-                                           ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2537, characters 24-32:
- 2537 |         (`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 2631, characters 24-32:
- 2631 |         (`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 2734, characters 13-24:
- 2734 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2736, characters 41-49:
- 2736 |       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 2738, characters 54-62:
- 2738 |       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 2748, characters 37-45:
- 2748 |       | _ -> 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 2803, characters 13-24:
- 2803 |       guard (Cstruct.len buf >= off') `Partial >>= fun () ->
-                     ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2806, characters 54-62:
- 2806 |       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 2807, characters 52-60:
- 2807 |       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 2825, characters 37-45:
- 2825 |       | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
-                                             ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2861, characters 24-28:
- 2861 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2862, characters 27-31:
- 2862 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2863, characters 30-34:
- 2863 |                   (list ~sep:(unit ", ") pp_prereq)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2865, characters 24-28:
- 2865 |         Fmt.(list ~sep:(unit ";@ ")
-                                ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2866, characters 27-31:
- 2866 |                (pair ~sep:(unit ":") Domain_name.pp
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2867, characters 30-34:
- 2867 |                   (list ~sep:(unit ", ") pp_update)))
-                                      ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2880, characters 26-34:
- 2880 |         (`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 2917, characters 63-67:
- 2917 |     | `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 2949, characters 27-31:
- 2949 |         Fmt.(option ~none:(unit "no data") Answer.pp) q
-                                   ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3020, characters 25-29:
- 3020 |       Fmt.(option ~none:(unit "no") Edns.pp) t.edns
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3021, characters 25-29:
- 3021 |       Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
-                                 ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3078, characters 10-21:
- 3078 |       (if Cstruct.len buf > off then
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3079, characters 17-28:
- 3079 |          let n = Cstruct.len buf - off in
-                         ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3138, characters 45-53:
- 3138 |           | 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 3145, characters 55-63:
- 3145 |                   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 3149, characters 55-63:
- 3149 |                   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 3164, characters 47-55:
- 3164 |             | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
-                                                       ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3295, characters 10-21:
- 3295 |           Cstruct.len buf, true
-                  ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3315, characters 7-18:
- 3315 |     if Cstruct.len buf < 12 then
-               ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- (cd _build/default && /home/opam/.opam/4.14/bin/ocamlopt.opt -w -40 -g -I cache/.dns_cache.objs/byte -I cache/.dns_cache.objs/native -I /home/opam/.opam/4.14/lib/astring -I /home/opam/.opam/4.14/lib/bigarray-compat -I /home/opam/.opam/4.14/lib/cstruct -I /home/opam/.opam/4.14/lib/domain-name -I /home/opam/.opam/4.14/lib/duration -I /home/opam/.opam/4.14/lib/fmt -I /home/opam/.opam/4.14/lib/gmap -I /home/opam/.opam/4.14/lib/ipaddr -I /home/opam/.opam/4.14/lib/logs -I /home/opam/.opam/4.14/lib/lru -I /home/opam/.opam/4.14/lib/macaddr -I /home/opam/.opam/4.14/lib/psq -I /home/opam/.opam/4.14/lib/ptime -I /home/opam/.opam/4.14/lib/rresult -I /home/opam/.opam/4.14/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 122, characters 32-36:
- 122 | 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 140, characters 24-30:
- 140 |   | `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 140, characters 32-36:
- 140 |   | `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 141, characters 26-32:
- 141 |   | `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 141, characters 34-38:
- 141 |   | `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 142, characters 26-32:
- 142 |   | `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 142, characters 34-38:
- 142 |   | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns
-                                         ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
Processing  2/3: [dns: dune runtest]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "runtest" "-p" "dns" "-j" "31" (CWD=/home/opam/.opam/4.14/.opam-switch/build/dns.4.3.0)
- File "dune-project", line 4, characters 14-17:
- 4 | (using menhir 2.0)
-                   ^^^
- Warning: Version 2.0 of the menhir extension is not supported until version
- 1.4 of the dune language.
- Supported versions of this extension in version 1.2 of the dune language:
- - 1.0
- (cd _build/default/test && ./cache.exe)
- Testing `DNS cache tests'.
- This run has ID `J4V9MTT4'.
- 
-   [OK]          cache tests          0   empty cache.
-   [OK]          cache tests          1   cache with A.
-   [OK]          cache tests          2   cache nodata.
- 
- Full test results in `~/.opam/4.14/.opam-switch/build/dns.4.3.0/_build/default/test/_build/_tests/DNS cache tests'.
- Test Successful in 0.001s. 3 tests run.
- (cd _build/default/test && ./tests.exe)
- Testing `DNS name and packet tests'.
- This run has ID `RDBWO2H1'.
- 
-   [OK]          Packet decode          0   bad query.
-   [OK]          Packet decode          1   regression0.
-   [OK]          Packet decode          2   regression1.
-   [OK]          Packet decode          3   regression2.
-   [OK]          Packet decode          4   regression4.
-   [OK]          Packet decode          5   regression5.
-   [OK]          Packet decode          6   regression6.
-   [OK]          Packet decode          7   regression7.
-   [OK]          Packet decode          8   regression8.
-   [OK]          Packet decode          9   regression9.
-   [OK]          Packet decode         10   regression10.
- 
- Full test results in `~/.opam/4.14/.opam-switch/build/dns.4.3.0/_build/default/test/_build/_tests/DNS name and packet tests'.
- Test Successful in 0.004s. 11 tests run.
-> compiled  dns.4.3.0
-> installed dns.4.3.0
Done.
# Run eval $(opam env) to update the current shell environment
2022-07-27 05:19.13 ---> saved as "7573339c2f7bf327d3a4334d5472f30fa4bb8bd734e38b2cd11ffa49478d331e"
Job succeeded
2022-07-27 05:19.59: Job succeeded