- github
- ocaml
- opam-repository
- 45a900
- compilers,4.14,dune-configurator.3.18.1,revdeps,dns.4.6.0
(not at the head of any monitored branch or PR)
2025-04-15 16:17.05: New job: test dns.4.6.0 with dune-configurator.3.18.1, using opam 2.3
from https://github.com/ocaml/opam-repository.git#refs/pull/27761/head (45a9003972a4bc10898d8844bef612e0e0029914)
on debian-12-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/27761/head" && git reset --hard 45a90039
git fetch origin master
git merge --no-edit 70b82be6e261da74b766f9bb1344a1ecd5b1909d
cat > ../Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:debian-12-ocaml-4.14@sha256:ec682473bce2c2c47749ae1025968d0b585bdde0fcd2b8e7871a79f983cc1050
USER 1000:1000
WORKDIR /home/opam
RUN sudo ln -f /usr/bin/opam-2.3 /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-configurator.3.18.1 3.18.1
RUN opam reinstall dune-configurator.3.18.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-12\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'dune-configurator.3.18.1' && 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.6.0; \
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-12\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'dns.4.6.0' && 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.6.0) || true
RUN opam reinstall --with-test --verbose dns.4.6.0; \
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-12\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'dns.4.6.0' && 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 .
2025-04-15 16:17.05: Using cache hint "ocaml/opam:debian-12-ocaml-4.14@sha256:ec682473bce2c2c47749ae1025968d0b585bdde0fcd2b8e7871a79f983cc1050-dune-configurator.3.18.1-dns.4.6.0-45a9003972a4bc10898d8844bef612e0e0029914"
2025-04-15 16:17.05: Using OBuilder spec:
((from ocaml/opam:debian-12-ocaml-4.14@sha256:ec682473bce2c2c47749ae1025968d0b585bdde0fcd2b8e7871a79f983cc1050)
(user (uid 1000) (gid 1000))
(workdir /home/opam)
(run (shell "sudo ln -f /usr/bin/opam-2.3 /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-configurator.3.18.1 3.18.1"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dune-configurator.3.18.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-12\\\"\"; 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-configurator.3.18.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 (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dns.4.6.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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; 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.6.0' && 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.6.0) || true"))
(run (shell "opam reinstall --with-test --verbose dns.4.6.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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; 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.6.0' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
)
2025-04-15 16:17.05: Waiting for resource in pool OCluster
2025-04-15 21:50.54: Waiting for worker…
2025-04-15 21:53.01: Got resource from pool OCluster
Building on x86-bm-c5.sw.ocaml.org
All commits already cached
Updating files: 64% (14657/22880)
Updating files: 65% (14872/22880)
Updating files: 66% (15101/22880)
Updating files: 67% (15330/22880)
Updating files: 68% (15559/22880)
Updating files: 69% (15788/22880)
Updating files: 70% (16016/22880)
Updating files: 71% (16245/22880)
Updating files: 72% (16474/22880)
Updating files: 73% (16703/22880)
Updating files: 74% (16932/22880)
Updating files: 75% (17160/22880)
Updating files: 76% (17389/22880)
Updating files: 77% (17618/22880)
Updating files: 78% (17847/22880)
Updating files: 79% (18076/22880)
Updating files: 80% (18304/22880)
Updating files: 81% (18533/22880)
Updating files: 82% (18762/22880)
Updating files: 83% (18991/22880)
Updating files: 84% (19220/22880)
Updating files: 85% (19448/22880)
Updating files: 86% (19677/22880)
Updating files: 87% (19906/22880)
Updating files: 88% (20135/22880)
Updating files: 89% (20364/22880)
Updating files: 90% (20592/22880)
Updating files: 91% (20821/22880)
Updating files: 92% (21050/22880)
Updating files: 93% (21279/22880)
Updating files: 94% (21508/22880)
Updating files: 95% (21736/22880)
Updating files: 96% (21965/22880)
Updating files: 97% (22194/22880)
Updating files: 98% (22423/22880)
Updating files: 99% (22652/22880)
Updating files: 100% (22880/22880)
Updating files: 100% (22880/22880), done.
HEAD is now at 70b82be6e2 Merge pull request #27756 from chetmurthy/release-camlp5-8.03.04
Updating 70b82be6e2..45a9003972
Fast-forward
packages/chrome-trace/chrome-trace.3.18.1/opam | 41 ++++++++++++
.../dune-action-plugin.3.18.1/opam | 54 ++++++++++++++++
.../dune-build-info/dune-build-info.3.18.1/opam | 47 ++++++++++++++
.../dune-configurator.3.18.1/opam | 51 +++++++++++++++
packages/dune-glob/dune-glob.3.18.1/opam | 44 +++++++++++++
.../dune-private-libs.3.18.1/opam | 52 +++++++++++++++
packages/dune-rpc-lwt/dune-rpc-lwt.3.18.1/opam | 43 +++++++++++++
packages/dune-rpc/dune-rpc.3.18.1/opam | 45 +++++++++++++
packages/dune-site/dune-site.3.18.1/opam | 39 ++++++++++++
packages/dune/dune.3.18.1/opam | 73 ++++++++++++++++++++++
packages/dyn/dyn.3.18.1/opam | 42 +++++++++++++
packages/ocamlc-loc/ocamlc-loc.3.18.1/opam | 45 +++++++++++++
packages/ordering/ordering.3.18.1/opam | 40 ++++++++++++
packages/stdune/stdune.3.18.1/opam | 46 ++++++++++++++
packages/xdg/xdg.3.18.1/opam | 41 ++++++++++++
15 files changed, 703 insertions(+)
create mode 100644 packages/chrome-trace/chrome-trace.3.18.1/opam
create mode 100644 packages/dune-action-plugin/dune-action-plugin.3.18.1/opam
create mode 100644 packages/dune-build-info/dune-build-info.3.18.1/opam
create mode 100644 packages/dune-configurator/dune-configurator.3.18.1/opam
create mode 100644 packages/dune-glob/dune-glob.3.18.1/opam
create mode 100644 packages/dune-private-libs/dune-private-libs.3.18.1/opam
create mode 100644 packages/dune-rpc-lwt/dune-rpc-lwt.3.18.1/opam
create mode 100644 packages/dune-rpc/dune-rpc.3.18.1/opam
create mode 100644 packages/dune-site/dune-site.3.18.1/opam
create mode 100644 packages/dune/dune.3.18.1/opam
create mode 100644 packages/dyn/dyn.3.18.1/opam
create mode 100644 packages/ocamlc-loc/ocamlc-loc.3.18.1/opam
create mode 100644 packages/ordering/ordering.3.18.1/opam
create mode 100644 packages/stdune/stdune.3.18.1/opam
create mode 100644 packages/xdg/xdg.3.18.1/opam
(from ocaml/opam:debian-12-ocaml-4.14@sha256:ec682473bce2c2c47749ae1025968d0b585bdde0fcd2b8e7871a79f983cc1050)
2025-04-15 21:53.04 ---> using "c803204894feb69882c6f8a93debc38d237226aa0742423bb8ecaf2af7ff192b" from cache
/: (user (uid 1000) (gid 1000))
/: (workdir /home/opam)
/home/opam: (run (shell "sudo ln -f /usr/bin/opam-2.3 /usr/bin/opam"))
2025-04-15 21:53.04 ---> using "ece3a69ccd84d1bc3f538d5d927c0677b7135e0ed5c5cf4c9c4520c17f38358a" 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 development 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 39 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=39 --global
Format upgrade done.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] Initialised
2025-04-15 21:53.04 ---> using "d5e769d11ef10526cdb73f418d047f005a7a5b69bb629bfc2d2d388c7c8b8cdf" 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.3.0 (35acd0c5abc5e66cdbd5be16ba77aa6c33a4c724)
# self-upgrade no
# system arch=x86_64 os=linux os-distribution=debian os-version=12
# solver builtin-0install
# install-criteria -changed,-count[avoid-version,solution]
# upgrade-criteria -count[avoid-version,solution]
# jobs 31
# repositories 1 (version-controlled)
# pinned 1 (version)
# current-switch 4.14
# invariant ["ocaml-base-compiler" {= "4.14.2"}]
# compiler-packages ocaml-base-compiler.4.14.2, 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.2
2025-04-15 21:53.04 ---> using "715b54b0301c5ea573dce9ba6774fadf0f93b64dc7a24253bfe6c76c219d7da5" 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/"))
2025-04-15 21:53.04 ---> using "2963a137c235cb1efcbb6bb5c962ec263787dd9c8275045ae610283ae366c13d" from cache
/home/opam: (copy (src .) (dst opam-repository/))
2025-04-15 21:53.07 ---> using "c09bf3edab97cea63fa144e6f5ecf2869b6fb4925fdd1aac25138a67330f6681" from cache
/home/opam: (run (shell "opam repository set-url --strict default opam-repository/"))
[default] Initialised
2025-04-15 21:53.07 ---> using "1e72cc37196eed0f1745a95595b3baa136f4f1d0128340fbaf2f61ec1938d8f7" 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 bookworm InRelease
- Get:2 http://deb.debian.org/debian bookworm-updates InRelease [55.4 kB]
- Get:3 http://deb.debian.org/debian-security bookworm-security InRelease [48.0 kB]
- Get:4 http://deb.debian.org/debian-security bookworm-security/main amd64 Packages [254 kB]
- Fetched 357 kB in 1s (602 kB/s)
- Reading package lists...
-
2025-04-15 21:53.07 ---> using "fe6517cd124df9c409c133b211b90144cf0d720f10758432d957d3f65248f412" from cache
/home/opam: (run (shell "opam pin add -k version -yn dune-configurator.3.18.1 3.18.1"))
dune-configurator is now pinned to version 3.18.1
2025-04-15 21:53.07 ---> using "a8df9e0660d0f90f84499b44ef14d60d58b0c716d72064b8f82219a302c13af6" from cache
/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dune-configurator.3.18.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-12\\\"\"; 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-configurator.3.18.1' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
dune-configurator.3.18.1 is not installed. Install it? [y/n] y
The following actions will be performed:
=== install 3 packages
- install csexp 1.5.2 [required by dune-configurator]
- install dune 3.18.1 [required by dune-configurator]
- install dune-configurator 3.18.1 (pinned)
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved csexp.1.5.2 (cached)
-> retrieved dune.3.18.1, dune-configurator.3.18.1 (cached)
-> installed dune.3.18.1
-> installed csexp.1.5.2
-> installed dune-configurator.3.18.1
Done.
# To update the current shell environment, run: eval $(opam env)
2025-04-15 21:53.07 ---> using "a78086b5bdca7d3054387bd9b97fe4704446fe590527fc2c96cb815b2805cdc8" from cache
/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall dns.4.6.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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; 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.6.0' && 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.6.0 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.6.0
- install domain-name 0.4.1 [required by dns]
- install duration 0.2.1 [required by dns]
- install fmt 0.10.0 [required by dns]
- install gmap 0.3.0 [required by dns]
- install ipaddr 5.6.0 [required by dns]
- install logs 0.8.0 [required by dns]
- install lru 0.3.1 [required by dns]
- install macaddr 5.6.0 [required by ipaddr]
- install metrics 0.4.1 [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.0.8 [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.6.0 (cached)
-> retrieved domain-name.0.4.1 (cached)
-> retrieved duration.0.2.1 (cached)
-> retrieved fmt.0.10.0 (cached)
-> retrieved gmap.0.3.0 (cached)
-> retrieved ipaddr.5.6.0, macaddr.5.6.0 (cached)
-> retrieved logs.0.8.0 (cached)
-> retrieved lru.0.3.1 (cached)
-> retrieved metrics.0.4.1 (cached)
-> retrieved ocamlbuild.0.16.1 (cached)
-> installed bigarray-compat.1.1.0
-> installed domain-name.0.4.1
-> installed duration.0.2.1
-> installed gmap.0.3.0
-> retrieved ocamlfind.1.9.8 (cached)
-> retrieved psq.0.2.1 (cached)
-> retrieved ptime.1.2.0 (cached)
-> retrieved rresult.0.7.0 (cached)
-> retrieved seq.base (cached)
-> installed seq.base
-> installed macaddr.5.6.0
-> retrieved topkg.1.0.8 (cached)
-> installed psq.0.2.1
-> installed cstruct.6.0.1
-> installed ipaddr.5.6.0
-> installed lru.0.3.1
-> installed ocamlfind.1.9.8
-> installed ocamlbuild.0.16.1
-> installed topkg.1.0.8
-> installed rresult.0.7.0
-> installed fmt.0.10.0
-> installed ptime.1.2.0
-> installed metrics.0.4.1
-> installed astring.0.8.5
-> installed logs.0.8.0
-> installed dns.4.6.0
Done.
# To update the current shell environment, run: eval $(opam env)
2025-04-15 21:53.33 ---> saved as "06bbbb2227e45247d06c13f4ce207a1ad5ca814d89d5b1d3c27030eda3a94f17"
/home/opam: (run (network host)
(shell "(opam reinstall --with-test dns.4.6.0) || true"))
The following actions will be performed:
=== recompile 4 packages
- recompile dns 4.6.0
- recompile fmt 0.10.0 [uses cmdliner]
- recompile logs 0.8.0 [uses cmdliner]
- recompile metrics 0.4.1 [uses fmt]
=== install 6 packages
- install alcotest 1.9.0 [required by dns]
- install cmdliner 1.3.0 [required by alcotest]
- install ocaml-syntax-shims 1.0.0 [required by alcotest]
- install re 1.12.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.0 (https://github.com/mirage/alcotest/releases/download/1.9.0/alcotest-1.9.0.tbz)
-> retrieved cmdliner.1.3.0 (https://erratique.ch/software/cmdliner/releases/cmdliner-1.3.0.tbz)
-> retrieved dns.4.6.0 (https://github.com/mirage/ocaml-dns/releases/download/v4.6.0/dns-v4.6.0.tbz)
-> retrieved fmt.0.10.0 (https://erratique.ch/software/fmt/releases/fmt-0.10.0.tbz)
-> retrieved logs.0.8.0 (https://erratique.ch/software/logs/releases/logs-0.8.0.tbz)
-> retrieved metrics.0.4.1 (https://github.com/mirage/metrics/releases/download/v0.4.1/metrics-0.4.1.tbz)
-> retrieved ocaml-syntax-shims.1.0.0 (https://github.com/ocaml-ppx/ocaml-syntax-shims/releases/download/1.0.0/ocaml-syntax-shims-1.0.0.tbz)
-> retrieved re.1.12.0 (https://github.com/ocaml/ocaml-re/releases/download/1.12.0/re-1.12.0.tbz)
-> retrieved stdlib-shims.0.3.0 (https://github.com/ocaml/stdlib-shims/releases/download/0.3.0/stdlib-shims-0.3.0.tbz)
-> retrieved uutf.1.0.4 (https://erratique.ch/software/uutf/releases/uutf-1.0.4.tbz)
-> installed stdlib-shims.0.3.0
-> installed ocaml-syntax-shims.1.0.0
-> installed cmdliner.1.3.0
-> removed dns.4.6.0
-> removed logs.0.8.0
-> removed metrics.0.4.1
-> removed fmt.0.10.0
-> installed re.1.12.0
-> installed uutf.1.0.4
-> installed fmt.0.10.0
-> installed metrics.0.4.1
-> installed alcotest.1.9.0
-> installed logs.0.8.0
-> installed dns.4.6.0
Done.
# To update the current shell environment, run: eval $(opam env)
2025-04-15 21:53.55 ---> saved as "47a3e3243ae138eb83a48dc8b468018d69b735f5e0b84d91438445948843af9e"
/home/opam: (run (shell "opam reinstall --with-test --verbose dns.4.6.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 partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; 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.6.0' && 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.6.0
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing 1/4: [dns.4.6.0: extract]
-> retrieved dns.4.6.0 (cached)
Processing 2/4: [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.6.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/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 70, characters 41-49:
- 70 | | c -> Error (`Not_implemented (off, Fmt.strf "class %X" c))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 108, characters 41-49:
- 108 | | x -> Error (`Not_implemented (off, Fmt.strf "opcode 0x%X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 166, characters 41-49:
- 166 | | x -> Error (`Not_implemented (off, Fmt.strf "rcode 0x%04X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 203, characters 50-58:
- 203 | | i when i >= 64 -> Error (`Malformed (off, Fmt.strf "label tag 0x%x" i)) (* bit patterns starting with 10 or 01 *)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 295, characters 25-33:
- 295 | `Malformed (off, Fmt.strf "invalid hostname %a" Domain_name.pp name))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 745, characters 34-42:
- 745 | (`Not_implemented (off + 2, Fmt.strf "dnskey protocol 0x%x" proto)) >>| fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 754, characters 13-24:
- 754 | let kl = Cstruct.len t.key in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 796, characters 39-43:
- 796 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 811, characters 35-43:
- 811 | (`Not_implemented (succ off, Fmt.strf "caa tag 0x%x" tl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 961, characters 12-23:
- 961 | let l = Cstruct.len tlsa.data in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1059, characters 12-23:
- 1059 | let l = Cstruct.len sshfp.fingerprint in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1139, characters 17-25:
- 1139 | 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 1165, characters 30-38:
- 1165 | 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 1218, characters 25-29:
- 1218 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1232, characters 11-22:
- 1232 | 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 1234, characters 39-47:
- 1234 | 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 1237, characters 11-22:
- 1237 | 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 1240, characters 11-22:
- 1240 | 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 1245, characters 11-22:
- 1245 | 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 1253, characters 11-22:
- 1253 | 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 1303, characters 18-29:
- 1303 | 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 1361, characters 16-27:
- 1361 | let len = Cstruct.len t.mac in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1371, characters 35-46:
- 1371 | 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 1399, characters 70-74:
- 1399 | | 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 1446, characters 12-23:
- 1446 | let l = Cstruct.len v in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1467, characters 46-54:
- 1467 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1517, characters 23-27:
- 1517 | (list ~sep:(unit ", ") pp_extension) opt.extensions)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1534, characters 11-22:
- 1534 | 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 1897, characters 30-41:
- 1897 | 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 1898, characters 25-36:
- 1898 | 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 1926, characters 31-37:
- 1926 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1926, characters 39-43:
- 1926 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1931, characters 10-18:
- 1931 | [ 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 1934, characters 12-20:
- 1934 | 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 1938, characters 12-20:
- 1938 | 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 1941, characters 10-18:
- 1941 | [ 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 1943, characters 10-18:
- 1943 | [ 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 1951, characters 12-20:
- 1951 | 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 1955, characters 10-18:
- 1955 | 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 1959, characters 12-20:
- 1959 | 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 1963, characters 12-20:
- 1963 | 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 1970, characters 12-20:
- 1970 | 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 1978, characters 12-20:
- 1978 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1985, characters 12-20:
- 1985 | 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 1994, characters 12-20:
- 1994 | 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 2001, characters 12-20:
- 2001 | 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 2146, characters 11-22:
- 2146 | 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 2152, characters 24-32:
- 2152 | (`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 2153, characters 11-22:
- 2153 | 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 2155, characters 28-36:
- 2155 | (`Malformed (off + 4, Fmt.strf "length %d exceeds maximum rdata size" len)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2217, characters 24-28:
- 2217 | Fmt.(list ~sep:(unit "@.") string) ppf
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2331, characters 24-28:
- 2331 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2355, characters 13-24:
- 2355 | guard (Cstruct.len buf >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2466, characters 11-22:
- 2466 | 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 2523, characters 18-26:
- 2523 | let msg = Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2529, characters 40-48:
- 2529 | 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 2548, characters 30-38:
- 2548 | (`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 2554, characters 36-44:
- 2554 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2589, characters 26-34:
- 2589 | (`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 2594, characters 26-34:
- 2594 | (`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 2597, characters 35-43:
- 2597 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2699, characters 24-32:
- 2699 | (`Malformed (6, Fmt.strf "AXFR needs at least one RRs in answer %d" ancount)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2854, characters 24-32:
- 2854 | (`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 2957, characters 13-24:
- 2957 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2959, characters 41-49:
- 2959 | 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 2961, characters 54-62:
- 2961 | 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 2971, characters 37-45:
- 2971 | | _ -> 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 3026, characters 13-24:
- 3026 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3029, characters 54-62:
- 3029 | 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 3030, characters 52-60:
- 3030 | 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 3048, characters 37-45:
- 3048 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3084, characters 24-28:
- 3084 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3085, characters 27-31:
- 3085 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3086, characters 30-34:
- 3086 | (list ~sep:(unit ", ") pp_prereq)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3088, characters 24-28:
- 3088 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3089, characters 27-31:
- 3089 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3090, characters 30-34:
- 3090 | (list ~sep:(unit ", ") pp_update)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3103, characters 26-34:
- 3103 | (`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 3140, characters 63-67:
- 3140 | | `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 3187, characters 27-31:
- 3187 | Fmt.(option ~none:(unit "no data") Answer.pp) q
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3258, characters 25-29:
- 3258 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3259, characters 25-29:
- 3259 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3316, characters 10-21:
- 3316 | (if Cstruct.len buf > off then
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3317, characters 17-28:
- 3317 | let n = Cstruct.len buf - off in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3376, characters 45-53:
- 3376 | | 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 3383, characters 55-63:
- 3383 | 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 3387, characters 55-63:
- 3387 | 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 3402, characters 47-55:
- 3402 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3534, characters 10-21:
- 3534 | Cstruct.len buf, true
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3582, characters 7-18:
- 3582 | 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 70, characters 41-49:
- 70 | | c -> Error (`Not_implemented (off, Fmt.strf "class %X" c))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 108, characters 41-49:
- 108 | | x -> Error (`Not_implemented (off, Fmt.strf "opcode 0x%X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 166, characters 41-49:
- 166 | | x -> Error (`Not_implemented (off, Fmt.strf "rcode 0x%04X" x))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 203, characters 50-58:
- 203 | | i when i >= 64 -> Error (`Malformed (off, Fmt.strf "label tag 0x%x" i)) (* bit patterns starting with 10 or 01 *)
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 295, characters 25-33:
- 295 | `Malformed (off, Fmt.strf "invalid hostname %a" Domain_name.pp name))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 745, characters 34-42:
- 745 | (`Not_implemented (off + 2, Fmt.strf "dnskey protocol 0x%x" proto)) >>| fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 754, characters 13-24:
- 754 | let kl = Cstruct.len t.key in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 796, characters 39-43:
- 796 | t.critical t.tag Fmt.(list ~sep:(unit "; ") string) t.value
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 811, characters 35-43:
- 811 | (`Not_implemented (succ off, Fmt.strf "caa tag 0x%x" tl)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 961, characters 12-23:
- 961 | let l = Cstruct.len tlsa.data in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1059, characters 12-23:
- 1059 | let l = Cstruct.len sshfp.fingerprint in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1139, characters 17-25:
- 1139 | 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 1165, characters 30-38:
- 1165 | 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 1218, characters 25-29:
- 1218 | Fmt.(option ~none:(unit "none") (Ptime.pp_rfc3339 ())) t.other
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1232, characters 11-22:
- 1232 | 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 1234, characters 39-47:
- 1234 | 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 1237, characters 11-22:
- 1237 | 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 1240, characters 11-22:
- 1240 | 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 1245, characters 11-22:
- 1245 | 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 1253, characters 11-22:
- 1253 | 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 1303, characters 18-29:
- 1303 | 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 1361, characters 16-27:
- 1361 | let len = Cstruct.len t.mac in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1371, characters 35-46:
- 1371 | 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 1399, characters 70-74:
- 1399 | | 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 1446, characters 12-23:
- 1446 | let l = Cstruct.len v in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 1467, characters 46-54:
- 1467 | | _ -> Error (`Not_implemented (off, Fmt.strf "edns keepalive 0x%x" tl))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1517, characters 23-27:
- 1517 | (list ~sep:(unit ", ") pp_extension) opt.extensions)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1534, characters 11-22:
- 1534 | 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 1897, characters 30-41:
- 1897 | 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 1898, characters 25-36:
- 1898 | 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 1926, characters 31-37:
- 1926 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^^^
- Alert deprecated: Fmt.suffix
- use Fmt.(++) instead.
- File "src/dns.ml", line 1926, characters 39-43:
- 1926 | let ttl_fmt = Fmt.(option (suffix (unit "\t") uint32)) in
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 1931, characters 10-18:
- 1931 | [ 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 1934, characters 12-20:
- 1934 | 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 1938, characters 12-20:
- 1938 | 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 1941, characters 10-18:
- 1941 | [ 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 1943, characters 10-18:
- 1943 | [ 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 1951, characters 12-20:
- 1951 | 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 1955, characters 10-18:
- 1955 | 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 1959, characters 12-20:
- 1959 | 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 1963, characters 12-20:
- 1963 | 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 1970, characters 12-20:
- 1970 | 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 1978, characters 12-20:
- 1978 | Fmt.strf "%s\t%aCAA\t%s\t%s\t\"%s\""
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 1985, characters 12-20:
- 1985 | 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 1994, characters 12-20:
- 1994 | 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 2001, characters 12-20:
- 2001 | 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 2146, characters 11-22:
- 2146 | 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 2152, characters 24-32:
- 2152 | (`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 2153, characters 11-22:
- 2153 | 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 2155, characters 28-36:
- 2155 | (`Malformed (off + 4, Fmt.strf "length %d exceeds maximum rdata size" len)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2217, characters 24-28:
- 2217 | Fmt.(list ~sep:(unit "@.") string) ppf
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2331, characters 24-28:
- 2331 | Fmt.(list ~sep:(unit ", ") Flag.pp) (Flags.elements flags)
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 2355, characters 13-24:
- 2355 | guard (Cstruct.len buf >= len) `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2466, characters 11-22:
- 2466 | 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 2523, characters 18-26:
- 2523 | let msg = Fmt.strf "bad RRTYp in question %a" Rr_map.pp_rr typ in
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2529, characters 40-48:
- 2529 | 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 2548, characters 30-38:
- 2548 | (`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 2554, characters 36-44:
- 2554 | Error (`Not_implemented (off, Fmt.strf "unexpected RR typ %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2589, characters 26-34:
- 2589 | (`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 2594, characters 26-34:
- 2594 | (`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 2597, characters 35-43:
- 2597 | | _ -> Error (`Malformed (off, Fmt.strf "decode additional, unexpected rr %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2699, characters 24-32:
- 2699 | (`Malformed (6, Fmt.strf "AXFR needs at least one RRs in answer %d" ancount)) >>= fun () ->
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 2854, characters 24-32:
- 2854 | (`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 2957, characters 13-24:
- 2957 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 2959, characters 41-49:
- 2959 | 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 2961, characters 54-62:
- 2961 | 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 2971, characters 37-45:
- 2971 | | _ -> 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 3026, characters 13-24:
- 3026 | guard (Cstruct.len buf >= off') `Partial >>= fun () ->
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3029, characters 54-62:
- 3029 | 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 3030, characters 52-60:
- 3030 | 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 3048, characters 37-45:
- 3048 | | _ -> Error (`Malformed (off, Fmt.strf "bad update class 0x%x" cls))
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3084, characters 24-28:
- 3084 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3085, characters 27-31:
- 3085 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3086, characters 30-34:
- 3086 | (list ~sep:(unit ", ") pp_prereq)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3088, characters 24-28:
- 3088 | Fmt.(list ~sep:(unit ";@ ")
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3089, characters 27-31:
- 3089 | (pair ~sep:(unit ":") Domain_name.pp
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3090, characters 30-34:
- 3090 | (list ~sep:(unit ", ") pp_update)))
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3103, characters 26-34:
- 3103 | (`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 3140, characters 63-67:
- 3140 | | `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 3187, characters 27-31:
- 3187 | Fmt.(option ~none:(unit "no data") Answer.pp) q
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3258, characters 25-29:
- 3258 | Fmt.(option ~none:(unit "no") Edns.pp) t.edns
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3259, characters 25-29:
- 3259 | Fmt.(option ~none:(unit "no") pp_tsig) t.tsig
- ^^^^
- Alert deprecated: Fmt.unit
- use Fmt.any instead.
- File "src/dns.ml", line 3316, characters 10-21:
- 3316 | (if Cstruct.len buf > off then
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3317, characters 17-28:
- 3317 | let n = Cstruct.len buf - off in
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3376, characters 45-53:
- 3376 | | 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 3383, characters 55-63:
- 3383 | 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 3387, characters 55-63:
- 3387 | 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 3402, characters 47-55:
- 3402 | | x -> Error (`Not_implemented (2, Fmt.strf "unsupported opcode %a"
- ^^^^^^^^
- Alert deprecated: Fmt.strf
- use Fmt.str instead.
- File "src/dns.ml", line 3534, characters 10-21:
- 3534 | Cstruct.len buf, true
- ^^^^^^^^^^^
- Alert deprecated: Cstruct.len
- len is deprecated, you should use length instead.
- File "src/dns.ml", line 3582, characters 7-18:
- 3582 | 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" "31" (CWD=/home/opam/.opam/4.14/.opam-switch/build/dns.4.6.0)
- (cd _build/default/test && ./cache.exe)
- Testing `DNS cache tests'.
- This run has ID `TDOGMJ4J'.
-
- [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.6.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 `IH8PKADH'.
-
- [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.6.0/_build/default/test/_build/_tests/DNS name and packet tests'.
- Test Successful in 0.004s. 11 tests run.
-> compiled dns.4.6.0
-> removed dns.4.6.0
-> installed dns.4.6.0
Done.
# To update the current shell environment, run: eval $(opam env)
2025-04-15 21:54.05 ---> saved as "32001f78f4408066f147d6f257dd43e51cf750dcddc72dc1e63610481c6802db"
Job succeeded
2025-04-15 21:54.17: Job succeeded