- github
- ocaml
- opam-repository
- 3e0c39
- compilers,4.14,dune.3.22.2,revdeps,dns.4.4.1
(not at the head of any monitored branch or PR)
2026-04-10 17:57.45: New job: test dns.4.4.1 with dune.3.22.2, using opam dev
from https://github.com/ocaml/opam-repository.git#refs/pull/29704/head (3e0c395e7b1393a792367f8edca3654dac71e6fd)
on debian-13-ocaml-4.14/amd64
To reproduce locally:
cd $(mktemp -d)
git clone --recursive "https://github.com/ocaml/opam-repository.git" && cd "opam-repository" && git fetch origin "refs/pull/29704/head" && git reset --hard 3e0c395e
git fetch origin master
git merge --no-edit 9d8ceab8e9f49f5671cf459997c8a47cf0e675ca
cat > ../Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:debian-13-ocaml-4.14@sha256:4457c533769cd1c32fd9fb5fb13e5a0a285ba114860db7ac2f34c1c21e5690e4
USER 1000:1000
WORKDIR /home/opam
RUN sudo ln -f /usr/bin/opam-dev /usr/bin/opam
RUN opam init --reinit -ni
RUN opam option solver=builtin-0install && opam config report
ENV OPAMDOWNLOADJOBS="1"
ENV OPAMERRLOGLEN="0"
ENV OPAMPRECISETRACKING="1"
ENV CI="true"
ENV OPAM_REPO_CI="true"
RUN rm -rf opam-repository/
COPY --chown=1000:1000 . opam-repository/
RUN opam repository set-url --strict default opam-repository/
RUN opam update --depexts || true
RUN opam pin add -k version -yn dune.3.22.2 3.22.2
RUN opam reinstall dune.3.22.2; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'dune.3.22.2' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
RUN opam reinstall dns.4.4.1; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'dns.4.4.1' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
RUN (opam reinstall --with-test dns.4.4.1) || true
RUN opam reinstall --with-test --verbose dns.4.4.1; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'dns.4.4.1' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
END-OF-DOCKERFILE
docker build -f ../Dockerfile .
2026-04-10 17:57.45: Using cache hint "ocaml/opam:debian-13-ocaml-4.14@sha256:4457c533769cd1c32fd9fb5fb13e5a0a285ba114860db7ac2f34c1c21e5690e4-dune.3.22.2-dns.4.4.1-3e0c395e7b1393a792367f8edca3654dac71e6fd"
2026-04-10 17:57.45: Using OBuilder spec:
((from ocaml/opam:debian-13-ocaml-4.14@sha256:4457c533769cd1c32fd9fb5fb13e5a0a285ba114860db7ac2f34c1c21e5690e4)
(user (uid 1000) (gid 1000))
(workdir /home/opam)
(run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
(run (network host)
(shell "opam init --reinit --config .opamrc-sandbox -ni"))
(run (shell "opam option solver=builtin-0install && opam config report"))
(env OPAMDOWNLOADJOBS 1)
(env OPAMERRLOGLEN 0)
(env OPAMPRECISETRACKING 1)
(env CI true)
(env OPAM_REPO_CI true)
(run (shell "rm -rf opam-repository/"))
(copy (src .) (dst opam-repository/))
(run (shell "opam repository set-url --strict default opam-repository/"))
(run (network host)
(shell "opam update --depexts || true"))
(run (shell "opam pin add -k version -yn dune.3.22.2 3.22.2"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dune.3.22.2;\
\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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dune.3.22.2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dns.4.4.1;\
\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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dns.4.4.1' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
(run (network host)
(shell "(opam reinstall --with-test dns.4.4.1) || true"))
(run (shell "opam reinstall --with-test --verbose dns.4.4.1;\
\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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dns.4.4.1' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
)
2026-04-10 17:57.45: Waiting for resource in pool OCluster
2026-04-11 03:33.45: Waiting for worker…
2026-04-11 03:35.49: Got resource from pool OCluster
Building on odawa.caelum.ci.dev
All commits already cached
HEAD is now at 9d8ceab8e9 Merge pull request #29697 from filipeom/opam-publish-smtml.0.25.0
Updating 9d8ceab8e9..3e0c395e7b
Fast-forward
packages/chrome-trace/chrome-trace.3.22.2/opam | 39 +++++++++++
.../dune-action-plugin.3.22.2/opam | 52 +++++++++++++++
.../dune-action-trace.3.22.2/opam | 39 +++++++++++
.../dune-build-info/dune-build-info.3.22.2/opam | 45 +++++++++++++
.../dune-configurator.3.22.2/opam | 49 ++++++++++++++
packages/dune-glob/dune-glob.3.22.2/opam | 42 ++++++++++++
.../dune-private-libs.3.22.2/opam | 50 +++++++++++++++
packages/dune-rpc-lwt/dune-rpc-lwt.3.22.2/opam | 41 ++++++++++++
packages/dune-rpc/dune-rpc.3.22.2/opam | 44 +++++++++++++
packages/dune-site/dune-site.3.22.2/opam | 37 +++++++++++
packages/dune/dune.3.22.2/opam | 75 ++++++++++++++++++++++
packages/dyn/dyn.3.22.2/opam | 40 ++++++++++++
packages/fs-io/fs-io.3.22.2/opam | 39 +++++++++++
packages/ocamlc-loc/ocamlc-loc.3.22.2/opam | 43 +++++++++++++
packages/ordering/ordering.3.22.2/opam | 38 +++++++++++
packages/stdune/stdune.3.22.2/opam | 46 +++++++++++++
packages/top-closure/top-closure.3.22.2/opam | 38 +++++++++++
packages/xdg/xdg.3.22.2/opam | 39 +++++++++++
18 files changed, 796 insertions(+)
create mode 100644 packages/chrome-trace/chrome-trace.3.22.2/opam
create mode 100644 packages/dune-action-plugin/dune-action-plugin.3.22.2/opam
create mode 100644 packages/dune-action-trace/dune-action-trace.3.22.2/opam
create mode 100644 packages/dune-build-info/dune-build-info.3.22.2/opam
create mode 100644 packages/dune-configurator/dune-configurator.3.22.2/opam
create mode 100644 packages/dune-glob/dune-glob.3.22.2/opam
create mode 100644 packages/dune-private-libs/dune-private-libs.3.22.2/opam
create mode 100644 packages/dune-rpc-lwt/dune-rpc-lwt.3.22.2/opam
create mode 100644 packages/dune-rpc/dune-rpc.3.22.2/opam
create mode 100644 packages/dune-site/dune-site.3.22.2/opam
create mode 100644 packages/dune/dune.3.22.2/opam
create mode 100644 packages/dyn/dyn.3.22.2/opam
create mode 100644 packages/fs-io/fs-io.3.22.2/opam
create mode 100644 packages/ocamlc-loc/ocamlc-loc.3.22.2/opam
create mode 100644 packages/ordering/ordering.3.22.2/opam
create mode 100644 packages/stdune/stdune.3.22.2/opam
create mode 100644 packages/top-closure/top-closure.3.22.2/opam
create mode 100644 packages/xdg/xdg.3.22.2/opam
(from ocaml/opam:debian-13-ocaml-4.14@sha256:4457c533769cd1c32fd9fb5fb13e5a0a285ba114860db7ac2f34c1c21e5690e4)
2026-04-11 03:36.16 ---> using "e7349b5faa6e8ea47e3f73a0784842b9d8524e468ce596e92633dbea53bd1c16" from cache
/: (user (uid 1000) (gid 1000))
/: (workdir /home/opam)
/home/opam: (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
2026-04-11 03:36.16 ---> using "345d07c1ddcf0b692213607682954d9bdf190a7dc793f33951a109185e732dcb" from cache
/home/opam: (run (network host)
(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 version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.2, which can't be reverted.
You may want to back it up before going further.
Continue? [Y/n] y
[NOTE] The 'jobs' option was reset, its value was 71 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
opam option jobs=71 --global
Format upgrade done.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] Initialised
2026-04-11 03:36.16 ---> using "6e021c655ca00bde9af60e23db55b09a0bcc3db0d3ca38d66f78ad53e254a31c" from cache
/home/opam: (run (shell "opam option solver=builtin-0install && opam config report"))
Set to 'builtin-0install' the field solver in global configuration
# opam config report
# opam-version 2.5.0
# self-upgrade no
# system arch=x86_64 os=linux os-distribution=debian os-version=13
# solver builtin-0install
# install-criteria -changed,-count[avoid-version,solution]
# upgrade-criteria -count[avoid-version,solution]
# jobs 255
# repositories 1 (version-controlled)
# pinned 1 (version)
# current-switch 4.14
# invariant ["ocaml-base-compiler" {= "4.14.3"}]
# compiler-packages ocaml-base-compiler.4.14.3, ocaml-options-vanilla.1
# ocaml:native true
# ocaml:native-tools true
# ocaml:native-dynlink true
# ocaml:stubsdir /home/opam/.opam/4.14/lib/ocaml/stublibs:/home/opam/.opam/4.14/lib/ocaml
# ocaml:preinstalled false
# ocaml:compiler 4.14.3
2026-04-11 03:36.16 ---> using "7b2a5ae62cf702b99c177da358372ff585494a0b1c5dfffe5c4eda3046bc59fb" from cache
/home/opam: (env OPAMDOWNLOADJOBS 1)
/home/opam: (env OPAMERRLOGLEN 0)
/home/opam: (env OPAMPRECISETRACKING 1)
/home/opam: (env CI true)
/home/opam: (env OPAM_REPO_CI true)
/home/opam: (run (shell "rm -rf opam-repository/"))
2026-04-11 03:36.16 ---> using "2d8e28a183d0990d4c5f7a587471f7c743cdf0d9f00bdf4de7761e94ec09202a" from cache
/home/opam: (copy (src .) (dst opam-repository/))
2026-04-11 03:36.17 ---> using "43c49734bd8015921029b9a907dd77c0e05208c46b686916515831f5a9e9d500" from cache
/home/opam: (run (shell "opam repository set-url --strict default opam-repository/"))
[default] Initialised
2026-04-11 03:36.17 ---> using "bb36992fd0066703535b2984ee1ead3db92bb1f04a8df092631924067dac4082" from cache
/home/opam: (run (network host)
(shell "opam update --depexts || true"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian trixie InRelease
- Get:2 http://deb.debian.org/debian trixie-updates InRelease [47.3 kB]
- Get:3 http://deb.debian.org/debian-security trixie-security InRelease [43.4 kB]
- Get:4 http://deb.debian.org/debian-security trixie-security/main amd64 Packages [121 kB]
- Fetched 211 kB in 0s (2452 kB/s)
- Reading package lists...
2026-04-11 03:36.17 ---> using "e0d9ada0baddc41d2c835edef7d0cf7cceebd2dadac41fda17c9e860b5313a74" from cache
/home/opam: (run (shell "opam pin add -k version -yn dune.3.22.2 3.22.2"))
dune is now pinned to version 3.22.2
2026-04-11 03:36.17 ---> using "a60db6b945be7f2fc9953546cee71bf416921d54f02951a4c9176dbdf1065520" from cache
/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dune.3.22.2;\
\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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dune.3.22.2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
dune.3.22.2 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 1 package
- install dune 3.22.2 (pinned)
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved dune.3.22.2 (cached)
-> installed dune.3.22.2
Done.
# To update the current shell environment, run: eval $(opam env)
2026-04-11 03:36.17 ---> using "59eacf68137f7dccf94b9ebc5274fdc537230a8c71c2eb52f8fcf698829c6d46" from cache
/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dns.4.4.1;\
\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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dns.4.4.1' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
dns.4.4.1 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 20 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 dns 4.4.1
- install domain-name 0.5.0 [required by dns]
- install duration 0.2.1 [required by dns]
- install fmt 0.11.0 [required by dns]
- install gmap 0.3.0 [required by dns]
- install ipaddr 5.6.2 [required by dns]
- install logs 0.10.0 [required by dns]
- install lru 0.3.1 [required by dns]
- install macaddr 5.6.2 [required by ipaddr]
- install metrics 0.5.0 [required by dns]
- install ocamlbuild 0.16.1 [required by ptime, fmt, astring, etc.]
- install ocamlfind 1.9.8 [required by ptime, fmt, astring, etc.]
- install psq 0.2.1 [required by lru]
- install ptime 1.2.0 [required by dns]
- install rresult 0.7.0 [required by dns]
- install seq base [required by psq]
- install topkg 1.1.1 [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 dns.4.4.1 (cached)
-> retrieved domain-name.0.5.0 (cached)
-> retrieved duration.0.2.1 (cached)
-> retrieved fmt.0.11.0 (cached)
-> retrieved gmap.0.3.0 (cached)
-> retrieved ipaddr.5.6.2, macaddr.5.6.2 (cached)
-> retrieved logs.0.10.0 (cached)
-> retrieved lru.0.3.1 (cached)
-> retrieved metrics.0.5.0 (cached)
-> retrieved ocamlbuild.0.16.1 (cached)
-> installed bigarray-compat.1.1.0
-> installed duration.0.2.1
-> installed gmap.0.3.0
-> retrieved ocamlfind.1.9.8 (cached)
-> installed domain-name.0.5.0
-> retrieved psq.0.2.1 (cached)
-> installed macaddr.5.6.2
-> retrieved ptime.1.2.0 (cached)
-> retrieved rresult.0.7.0 (cached)
-> retrieved seq.base (cached)
-> installed seq.base
-> retrieved topkg.1.1.1 (cached)
-> installed cstruct.6.0.1
-> installed psq.0.2.1
-> installed ipaddr.5.6.2
-> installed lru.0.3.1
-> installed ocamlfind.1.9.8
-> installed ocamlbuild.0.16.1
-> installed topkg.1.1.1
-> installed rresult.0.7.0
-> installed fmt.0.11.0
-> installed ptime.1.2.0
-> installed metrics.0.5.0
-> installed astring.0.8.5
-> installed logs.0.10.0
-> installed dns.4.4.1
Done.
# To update the current shell environment, run: eval $(opam env)
2026-04-11 03:36.31 ---> saved as "be2e7290e0b271d12db2a7dccb11b49a964f4121f5943453b60e9956307f22b4"
/home/opam: (run (network host)
(shell "(opam reinstall --with-test dns.4.4.1) || true"))
The following actions will be performed:
=== recompile 4 packages
- recompile dns 4.4.1
- recompile fmt 0.11.0 [uses cmdliner]
- recompile logs 0.10.0 [uses cmdliner]
- recompile metrics 0.5.0 [uses fmt]
=== install 6 packages
- install alcotest 1.9.1 [required by dns]
- install cmdliner 2.1.0 [required by alcotest]
- install ocaml-syntax-shims 1.0.0 [required by alcotest]
- install re 1.14.0 [required by alcotest]
- install stdlib-shims 0.3.0 [required by alcotest]
- install uutf 1.0.4 [required by alcotest]
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved alcotest.1.9.1 (https://opam.ocaml.org/cache)
-> retrieved cmdliner.2.1.0 (https://opam.ocaml.org/cache)
-> retrieved dns.4.4.1 (https://opam.ocaml.org/cache)
-> retrieved fmt.0.11.0 (https://opam.ocaml.org/cache)
-> retrieved logs.0.10.0 (https://opam.ocaml.org/cache)
-> retrieved metrics.0.5.0 (https://opam.ocaml.org/cache)
-> retrieved ocaml-syntax-shims.1.0.0 (https://opam.ocaml.org/cache)
-> retrieved re.1.14.0 (https://opam.ocaml.org/cache)
-> retrieved stdlib-shims.0.3.0 (https://opam.ocaml.org/cache)
-> retrieved uutf.1.0.4 (https://opam.ocaml.org/cache)
-> installed stdlib-shims.0.3.0
-> installed ocaml-syntax-shims.1.0.0
-> installed re.1.14.0
-> removed dns.4.4.1
-> removed logs.0.10.0
-> removed metrics.0.5.0
-> removed fmt.0.11.0
-> installed cmdliner.2.1.0
-> installed uutf.1.0.4
-> installed fmt.0.11.0
-> installed metrics.0.5.0
-> installed alcotest.1.9.1
-> installed logs.0.10.0
-> installed dns.4.4.1
Done.
# To update the current shell environment, run: eval $(opam env)
2026-04-11 03:36.42 ---> saved as "a2202360c78309f97ff8fceb72d62f409245553085ef41d78ae1d135d8ba2cad"
/home/opam: (run (shell "opam reinstall --with-test --verbose dns.4.4.1;\
\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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'dns.4.4.1' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
The following actions will be performed:
=== recompile 1 package
- recompile dns 4.4.1
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing 1/4: [dns.4.4.1: extract]
-> retrieved dns.4.4.1 (cached)
Processing 2/4: [dns: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "dns" "-j" "255" (CWD=/home/opam/.opam/4.14/.opam-switch/build/dns.4.4.1)
- (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/metrics -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 119, characters 32-36:
- 119 | let pp = LRU.pp Fmt.(pair ~sep:(unit ": ") Domain_name.pp Entry.pp)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "cache/dns_cache.ml", line 137, characters 24-30:
- 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns
- ^^^^^^
- Alert deprecated: Fmt.prefix
- use Fmt.(++) instead.
- File "cache/dns_cache.ml", line 137, characters 32-36:
- 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "cache/dns_cache.ml", line 138, characters 26-32:
- 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns
- ^^^^^^
- Alert deprecated: Fmt.prefix
- use Fmt.(++) instead.
- File "cache/dns_cache.ml", line 138, characters 34-38:
- 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "cache/dns_cache.ml", line 139, characters 26-32:
- 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns
- ^^^^^^
- Alert deprecated: Fmt.prefix
- use Fmt.(++) instead.
- File "cache/dns_cache.ml", line 139, characters 34-38:
- 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- (cd _build/default && /home/opam/.opam/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/metrics -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 772, characters 39-43:
- 772 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 786, characters 59-67:
- 786 | guard (tl > 0 && tl < 16) (`Not_implemented (succ off, Fmt.strf "caa tag 0x%x" tl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 825, characters 41-49:
- 825 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA cert usage %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 848, characters 41-49:
- 848 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 870, characters 41-49:
- 870 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA matching type %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 916, characters 12-23:
- 916 | let l = Cstruct.len tlsa.data in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 942, characters 41-49:
- 942 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 964, characters 41-49:
- 964 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1001, characters 12-23:
- 1001 | let l = Cstruct.len sshfp.fingerprint in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1081, characters 17-25:
- 1081 | let m = Fmt.strf "algorithm name %a" Domain_name.pp b in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1107, characters 30-38:
- 1107 | Error (`Malformed (off, Fmt.strf "timestamp does not fit in time range %Ld" s))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1160, characters 25-29:
- 1160 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1174, characters 11-22:
- 1174 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1176, characters 39-47:
- 1176 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "tsig ttl is not zero %lu" ttl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1179, characters 11-22:
- 1179 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1182, characters 11-22:
- 1182 | guard (Cstruct.len buf - off' >= 10) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1187, characters 11-22:
- 1187 | guard (Cstruct.len buf - off' >= 10 + mac_len + 6) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1195, characters 11-22:
- 1195 | guard (Cstruct.len buf >= rdata_end) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1245, characters 18-29:
- 1245 | let mac_len = Cstruct.len t.mac in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1303, characters 16-27:
- 1303 | let len = Cstruct.len t.mac in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1313, characters 35-46:
- 1313 | Cstruct.BE.set_uint16 buf 0 (Cstruct.len rdata) ;
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1340, characters 70-74:
- 1340 | | Tcp_keepalive i -> Fmt.pf ppf "keepalive %a" Fmt.(option ~none:(unit "none") int) i
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1387, characters 12-23:
- 1387 | let l = Cstruct.len v in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1408, characters 46-54:
- 1408 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1458, characters 23-27:
- 1458 | (list ~sep:(unit ", ") pp_extension) opt.extensions)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1475, characters 11-22:
- 1475 | guard (Cstruct.len buf - off >= 11) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1838, characters 30-41:
- 1838 | let buf = Bytes.create (Cstruct.len cs * 2) in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1839, characters 25-36:
- 1839 | for i = 0 to pred (Cstruct.len cs) do
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1867, characters 31-37:
- 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1867, characters 39-43:
- 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1872, characters 10-18:
- 1872 | [ Fmt.strf "%s\t%aCNAME\t%s" str_name ttl_fmt (ttl_opt ttl) (name alias) ]
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1875, characters 12-20:
- 1875 | Fmt.strf "%s\t%aMX\t%u\t%s" str_name ttl_fmt (ttl_opt ttl) preference (name mail_exchange) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1879, characters 12-20:
- 1879 | Fmt.strf "%s\t%aNS\t%s" str_name ttl_fmt (ttl_opt ttl) (name ns) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1882, characters 10-18:
- 1882 | [ Fmt.strf "%s\t%aPTR\t%s" str_name ttl_fmt (ttl_opt ttl) (name ptr) ]
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1884, characters 10-18:
- 1884 | [ Fmt.strf "%s\t%aSOA\t%s\t%s\t%lu\t%lu\t%lu\t%lu\t%lu" str_name
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1892, characters 12-20:
- 1892 | Fmt.strf "%s\t%aTXT\t\"%s\"" str_name ttl_fmt (ttl_opt ttl) txt :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1896, characters 10-18:
- 1896 | Fmt.strf "%s\t%aA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V4.to_string ip) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1900, characters 12-20:
- 1900 | Fmt.strf "%s\t%aAAAA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V6.to_string ip) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1904, characters 12-20:
- 1904 | Fmt.strf "%s\t%aSRV\t%u\t%u\t%u\t%s"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1911, characters 12-20:
- 1911 | Fmt.strf "%s%a\tDNSKEY\t%u\t3\t%d\t%s"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1919, characters 12-20:
- 1919 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1926, characters 12-20:
- 1926 | Fmt.strf "%s\t%aTLSA\t%u\t%u\t%u\t%s"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1935, characters 12-20:
- 1935 | Fmt.strf "%s\t%aSSHFP\t%u\t%u\t%s" str_name ttl_fmt (ttl_opt ttl)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1942, characters 12-20:
- 1942 | Fmt.strf "%s\t%aTYPE%d\t\\# %d %s" str_name ttl_fmt (ttl_opt ttl)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2003, characters 11-22:
- 2003 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2009, characters 24-32:
- 2009 | (`Malformed (off, Fmt.strf "bad TTL (high bit set) %lu" ttl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2010, characters 11-22:
- 2010 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2072, characters 24-28:
- 2072 | Fmt.(list ~sep:(unit "@.") string) ppf
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2186, characters 24-28:
- 2186 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2210, characters 13-24:
- 2210 | guard (Cstruct.len buf >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2321, characters 11-22:
- 2321 | guard (Cstruct.len buf - off >= 4) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2377, characters 49-57:
- 2377 | | `Edns | `Tsig -> Error (`Malformed (off, Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2379, characters 43-51:
- 2379 | | _ -> Error (`Not_implemented (off, Fmt.strf "bad class in question 0x%x" c))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2398, characters 30-38:
- 2398 | (`Not_implemented (off, Fmt.strf "rr class not IN 0x%x" clas)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2404, characters 36-44:
- 2404 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2439, characters 26-34:
- 2439 | (`Malformed (off, Fmt.strf "tsig class must be ANY 0x%x" clas)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2444, characters 26-34:
- 2444 | (`Malformed (off, Fmt.strf "additional class must be IN 0x%x" clas)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2447, characters 35-43:
- 2447 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2540, characters 24-32:
- 2540 | (`Malformed (6, Fmt.strf "AXFR needs at least two RRs in answer %d" ancount)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2634, characters 24-32:
- 2634 | (`Malformed (6, Fmt.strf "IXFR needs at least one RRs in answer %d" ancount)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2737, characters 13-24:
- 2737 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2739, characters 41-49:
- 2739 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "prereq TTL not zero %lu" ttl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2741, characters 54-62:
- 2741 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "prereq rdlength must be zero %d" rlen)) in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2751, characters 37-45:
- 2751 | | _ -> Error (`Malformed (off, Fmt.strf "prereq bad class 0x%x or typ %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2806, characters 13-24:
- 2806 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2809, characters 54-62:
- 2809 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "update rdlength must be zero %d" rlen)) in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2810, characters 52-60:
- 2810 | let ttl0 = guard (ttl = 0l) (`Malformed (off, Fmt.strf "update ttl must be zero %lu" ttl)) in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2828, characters 37-45:
- 2828 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2864, characters 24-28:
- 2864 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2865, characters 27-31:
- 2865 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2866, characters 30-34:
- 2866 | (list ~sep:(unit ", ") pp_prereq)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2868, characters 24-28:
- 2868 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2869, characters 27-31:
- 2869 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2870, characters 30-34:
- 2870 | (list ~sep:(unit ", ") pp_update)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2883, characters 26-34:
- 2883 | (`Malformed (off, Fmt.strf "update question not SOA %a" Rr_map.pp_rr (snd question))) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2920, characters 63-67:
- 2920 | | `Notify soa -> Fmt.pf ppf "notify %a" Fmt.(option ~none:(unit "no") Soa.pp) soa
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2952, characters 27-31:
- 2952 | Fmt.(option ~none:(unit "no data") Answer.pp) q
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3023, characters 25-29:
- 3023 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3024, characters 25-29:
- 3024 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3081, characters 10-21:
- 3081 | (if Cstruct.len buf > off then
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3082, characters 17-28:
- 3082 | let n = Cstruct.len buf - off in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3141, characters 45-53:
- 3141 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" Opcode.pp x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3148, characters 55-63:
- 3148 | guard (au_count = 0) (`Malformed (8, Fmt.strf "AXFR with aucount %d > 0" au_count)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3152, characters 55-63:
- 3152 | guard (au_count = 0) (`Malformed (8, Fmt.strf "IXFR with aucount %d > 0" au_count)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3167, characters 47-55:
- 3167 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3298, characters 10-21:
- 3298 | Cstruct.len buf, true
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3318, characters 7-18:
- 3318 | if Cstruct.len buf < 12 then
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- (cd _build/default && /home/opam/.opam/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/metrics -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 772, characters 39-43:
- 772 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 786, characters 59-67:
- 786 | guard (tl > 0 && tl < 16) (`Not_implemented (succ off, Fmt.strf "caa tag 0x%x" tl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 825, characters 41-49:
- 825 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA cert usage %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 848, characters 41-49:
- 848 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA selector %x" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 870, characters 41-49:
- 870 | | x -> Error (`Not_implemented (off, Fmt.strf "TLSA matching type %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 916, characters 12-23:
- 916 | let l = Cstruct.len tlsa.data in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 942, characters 41-49:
- 942 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP algorithm %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 964, characters 41-49:
- 964 | | x -> Error (`Not_implemented (off, Fmt.strf "SSHFP type %X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1001, characters 12-23:
- 1001 | let l = Cstruct.len sshfp.fingerprint in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1081, characters 17-25:
- 1081 | let m = Fmt.strf "algorithm name %a" Domain_name.pp b in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1107, characters 30-38:
- 1107 | Error (`Malformed (off, Fmt.strf "timestamp does not fit in time range %Ld" s))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1160, characters 25-29:
- 1160 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1174, characters 11-22:
- 1174 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1176, characters 39-47:
- 1176 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "tsig ttl is not zero %lu" ttl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1179, characters 11-22:
- 1179 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1182, characters 11-22:
- 1182 | guard (Cstruct.len buf - off' >= 10) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1187, characters 11-22:
- 1187 | guard (Cstruct.len buf - off' >= 10 + mac_len + 6) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1195, characters 11-22:
- 1195 | guard (Cstruct.len buf >= rdata_end) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1245, characters 18-29:
- 1245 | let mac_len = Cstruct.len t.mac in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1303, characters 16-27:
- 1303 | let len = Cstruct.len t.mac in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1313, characters 35-46:
- 1313 | Cstruct.BE.set_uint16 buf 0 (Cstruct.len rdata) ;
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1340, characters 70-74:
- 1340 | | Tcp_keepalive i -> Fmt.pf ppf "keepalive %a" Fmt.(option ~none:(unit "none") int) i
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1387, characters 12-23:
- 1387 | let l = Cstruct.len v in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1408, characters 46-54:
- 1408 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1458, characters 23-27:
- 1458 | (list ~sep:(unit ", ") pp_extension) opt.extensions)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1475, characters 11-22:
- 1475 | guard (Cstruct.len buf - off >= 11) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1838, characters 30-41:
- 1838 | let buf = Bytes.create (Cstruct.len cs * 2) in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1839, characters 25-36:
- 1839 | for i = 0 to pred (Cstruct.len cs) do
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1867, characters 31-37:
- 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1867, characters 39-43:
- 1867 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1872, characters 10-18:
- 1872 | [ Fmt.strf "%s\t%aCNAME\t%s" str_name ttl_fmt (ttl_opt ttl) (name alias) ]
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1875, characters 12-20:
- 1875 | Fmt.strf "%s\t%aMX\t%u\t%s" str_name ttl_fmt (ttl_opt ttl) preference (name mail_exchange) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1879, characters 12-20:
- 1879 | Fmt.strf "%s\t%aNS\t%s" str_name ttl_fmt (ttl_opt ttl) (name ns) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1882, characters 10-18:
- 1882 | [ Fmt.strf "%s\t%aPTR\t%s" str_name ttl_fmt (ttl_opt ttl) (name ptr) ]
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1884, characters 10-18:
- 1884 | [ Fmt.strf "%s\t%aSOA\t%s\t%s\t%lu\t%lu\t%lu\t%lu\t%lu" str_name
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1892, characters 12-20:
- 1892 | Fmt.strf "%s\t%aTXT\t\"%s\"" str_name ttl_fmt (ttl_opt ttl) txt :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1896, characters 10-18:
- 1896 | Fmt.strf "%s\t%aA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V4.to_string ip) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1900, characters 12-20:
- 1900 | Fmt.strf "%s\t%aAAAA\t%s" str_name ttl_fmt (ttl_opt ttl) (Ipaddr.V6.to_string ip) :: acc)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1904, characters 12-20:
- 1904 | Fmt.strf "%s\t%aSRV\t%u\t%u\t%u\t%s"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1911, characters 12-20:
- 1911 | Fmt.strf "%s%a\tDNSKEY\t%u\t3\t%d\t%s"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1919, characters 12-20:
- 1919 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1926, characters 12-20:
- 1926 | Fmt.strf "%s\t%aTLSA\t%u\t%u\t%u\t%s"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1935, characters 12-20:
- 1935 | Fmt.strf "%s\t%aSSHFP\t%u\t%u\t%s" str_name ttl_fmt (ttl_opt ttl)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1942, characters 12-20:
- 1942 | Fmt.strf "%s\t%aTYPE%d\t\\# %d %s" str_name ttl_fmt (ttl_opt ttl)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2003, characters 11-22:
- 2003 | guard (Cstruct.len buf - off >= 6) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2009, characters 24-32:
- 2009 | (`Malformed (off, Fmt.strf "bad TTL (high bit set) %lu" ttl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2010, characters 11-22:
- 2010 | guard (Cstruct.len buf - rdata_start >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2072, characters 24-28:
- 2072 | Fmt.(list ~sep:(unit "@.") string) ppf
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2186, characters 24-28:
- 2186 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2210, characters 13-24:
- 2210 | guard (Cstruct.len buf >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2321, characters 11-22:
- 2321 | guard (Cstruct.len buf - off >= 4) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2377, characters 49-57:
- 2377 | | `Edns | `Tsig -> Error (`Malformed (off, Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2379, characters 43-51:
- 2379 | | _ -> Error (`Not_implemented (off, Fmt.strf "bad class in question 0x%x" c))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2398, characters 30-38:
- 2398 | (`Not_implemented (off, Fmt.strf "rr class not IN 0x%x" clas)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2404, characters 36-44:
- 2404 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2439, characters 26-34:
- 2439 | (`Malformed (off, Fmt.strf "tsig class must be ANY 0x%x" clas)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2444, characters 26-34:
- 2444 | (`Malformed (off, Fmt.strf "additional class must be IN 0x%x" clas)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2447, characters 35-43:
- 2447 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2540, characters 24-32:
- 2540 | (`Malformed (6, Fmt.strf "AXFR needs at least two RRs in answer %d" ancount)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2634, characters 24-32:
- 2634 | (`Malformed (6, Fmt.strf "IXFR needs at least one RRs in answer %d" ancount)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2737, characters 13-24:
- 2737 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2739, characters 41-49:
- 2739 | guard (ttl = 0l) (`Malformed (off, Fmt.strf "prereq TTL not zero %lu" ttl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2741, characters 54-62:
- 2741 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "prereq rdlength must be zero %d" rlen)) in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2751, characters 37-45:
- 2751 | | _ -> Error (`Malformed (off, Fmt.strf "prereq bad class 0x%x or typ %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2806, characters 13-24:
- 2806 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2809, characters 54-62:
- 2809 | let r0 = guard (rlen = 0) (`Malformed (off + 4, Fmt.strf "update rdlength must be zero %d" rlen)) in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2810, characters 52-60:
- 2810 | let ttl0 = guard (ttl = 0l) (`Malformed (off, Fmt.strf "update ttl must be zero %lu" ttl)) in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2828, characters 37-45:
- 2828 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2864, characters 24-28:
- 2864 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2865, characters 27-31:
- 2865 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2866, characters 30-34:
- 2866 | (list ~sep:(unit ", ") pp_prereq)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2868, characters 24-28:
- 2868 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2869, characters 27-31:
- 2869 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2870, characters 30-34:
- 2870 | (list ~sep:(unit ", ") pp_update)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2883, characters 26-34:
- 2883 | (`Malformed (off, Fmt.strf "update question not SOA %a" Rr_map.pp_rr (snd question))) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2920, characters 63-67:
- 2920 | | `Notify soa -> Fmt.pf ppf "notify %a" Fmt.(option ~none:(unit "no") Soa.pp) soa
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2952, characters 27-31:
- 2952 | Fmt.(option ~none:(unit "no data") Answer.pp) q
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3023, characters 25-29:
- 3023 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3024, characters 25-29:
- 3024 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3081, characters 10-21:
- 3081 | (if Cstruct.len buf > off then
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3082, characters 17-28:
- 3082 | let n = Cstruct.len buf - off in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3141, characters 45-53:
- 3141 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a" Opcode.pp x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3148, characters 55-63:
- 3148 | guard (au_count = 0) (`Malformed (8, Fmt.strf "AXFR with aucount %d > 0" au_count)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3152, characters 55-63:
- 3152 | guard (au_count = 0) (`Malformed (8, Fmt.strf "IXFR with aucount %d > 0" au_count)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3167, characters 47-55:
- 3167 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3298, characters 10-21:
- 3298 | Cstruct.len buf, true
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3318, characters 7-18:
- 3318 | if Cstruct.len buf < 12 then
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- (cd _build/default && /home/opam/.opam/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/metrics -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 119, characters 32-36:
- 119 | let pp = LRU.pp Fmt.(pair ~sep:(unit ": ") Domain_name.pp Entry.pp)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "cache/dns_cache.ml", line 137, characters 24-30:
- 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns
- ^^^^^^
- Alert deprecated: Fmt.prefix
- use Fmt.(++) instead.
- File "cache/dns_cache.ml", line 137, characters 32-36:
- 137 | | `No_data ns -> Fmt.(prefix (unit "no data ") pp_ns) ppf ns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "cache/dns_cache.ml", line 138, characters 26-32:
- 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns
- ^^^^^^
- Alert deprecated: Fmt.prefix
- use Fmt.(++) instead.
- File "cache/dns_cache.ml", line 138, characters 34-38:
- 138 | | `No_domain ns -> Fmt.(prefix (unit "no domain ") pp_ns) ppf ns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "cache/dns_cache.ml", line 139, characters 26-32:
- 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns
- ^^^^^^
- Alert deprecated: Fmt.prefix
- use Fmt.(++) instead.
- File "cache/dns_cache.ml", line 139, characters 34-38:
- 139 | | `Serv_fail ns -> Fmt.(prefix (unit "serv fail ") pp_ns) ppf ns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
Processing 2/4: [dns: dune runtest]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "runtest" "-p" "dns" "-j" "255" (CWD=/home/opam/.opam/4.14/.opam-switch/build/dns.4.4.1)
- (cd _build/default/test && ./cache.exe)
- Testing `DNS cache tests'.
- This run has ID `F3HYXA7N'.
-
- [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.4.1/_build/default/test/_build/_tests/DNS cache tests'.
- Test Successful in 0.000s. 3 tests run.
- (cd _build/default/test && ./tests.exe)
- Testing `DNS name and packet tests'.
- This run has ID `QDB7QMFH'.
-
- [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.4.1/_build/default/test/_build/_tests/DNS name and packet tests'.
- Test Successful in 0.002s. 11 tests run.
-> compiled dns.4.4.1
-> removed dns.4.4.1
-> installed dns.4.4.1
Done.
# To update the current shell environment, run: eval $(opam env)
2026-04-11 03:36.46 ---> saved as "0dd318890d8c82e54ffa0b25099960d0b95eb4eb56b17638bacd889c17ae5dbc"
Job succeeded
2026-04-11 03:36.54: Job succeeded