Getting StartedDocumentation
Organisationsmiragemirage-skeleton924fa1 ()(lint-fmt)

(lint-fmt)

Link Copied
Code Copied

Logs

Show raw logs
2025-06-02 12:49.42: New job: test mirage/mirage-skeleton https://github.com/mirage/mirage-skeleton.git#refs/heads/dev (924fa1b6e311f53d719a3dab1546ea9b43145398) (linux-x86_64:(lint-fmt))
Base: ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7
ocamlformat version: version 0.26.2 (from opam)


To reproduce locally:


git clone --recursive "https://github.com/mirage/mirage-skeleton.git" -b "dev" && cd "mirage-skeleton" && git reset --hard 924fa1b6
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7
USER 1000:1000
RUN cd ~/opam-repository && (git cat-file -e 0eea63ad71af2b1116c556023bedc6bf083e6125 || git fetch origin master) && git reset -q --hard 0eea63ad71af2b1116c556023bedc6bf083e6125 && git log --no-decorate -n1 --oneline && opam update -u
RUN opam depext -i dune
WORKDIR /src
RUN opam depext -i ocamlformat=0.26.2
COPY --chown=1000:1000 . /src/
RUN opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2)


END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK


2025-06-02 12:49.42: Using cache hint "mirage/mirage-skeleton-ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7-debian-12-4.08_opam-2.3-ocamlformat-0eea63ad71af2b1116c556023bedc6bf083e6125"
2025-06-02 12:49.42: Using OBuilder spec:
((from ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7)
(user (uid 1000) (gid 1000))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 0eea63ad71af2b1116c556023bedc6bf083e6125 || git fetch origin master) && git reset -q --hard 0eea63ad71af2b1116c556023bedc6bf083e6125 && git log --no-decorate -n1 --oneline && opam update -u"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i dune"))
(workdir /src)
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i ocamlformat=0.26.2"))
(copy (src .) (dst /src/))
(run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)"))
)


2025-06-02 12:49.42: Waiting for resource in pool OCluster
2025-06-02 15:07.28: Waiting for worker…
2025-06-02 15:11.22: Got resource from pool OCluster
Building on toxis.caelum.ci.dev
All commits already cached
HEAD is now at 924fa1b defunctorised versions of unikernels (#407)


(from ocaml/opam:debian-12-ocaml-4.08@sha256:48fa4a7216c3973bb95572cf5dca98cbbcefe90f288f552e7ac70a8ccd438aa7)
2025-06-02 15:11.22 ---> using "d1b97f3f32fc7cff4791d73e3fff398d19cc5b0541c709028ff05a921e22d2c8" from cache


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


/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 0eea63ad71af2b1116c556023bedc6bf083e6125 || git fetch origin master) && git reset -q --hard 0eea63ad71af2b1116c556023bedc6bf083e6125 && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
* branch                  master     -> FETCH_HEAD
0d013e603b..f7c62d8b58  master     -> origin/master
0eea63ad71 Merge pull request #27946 from mtelvers/opam-publish-ocaml-version.4.0.1


<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] Initialised
default (at git+file:///home/opam/opam-repository):
[INFO] opam 2.1 and 2.2 include many performance and security improvements over 2.0; please consider upgrading (https://opam.ocaml.org/doc/Install.html)


Everything as up-to-date as possible (run with --verbose to show unavailable upgrades).
However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages.
Nothing to do.
# Run eval $(opam env) to update the current shell environment
2025-06-02 15:11.22 ---> using "96cf7cb4f290bdde63e0891300660f309335b98ec063b9c2de517b6b08952aac" from cache


/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i dune"))
# Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian
# No extra OS packages requirements found.
# All required OS packages found.
# Now letting opam install the packages
The following actions will be performed:
- install dune 3.19.0


<><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
[dune.3.19.0] found in cache


<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> installed dune.3.19.0
Done.
# Run eval $(opam env) to update the current shell environment
2025-06-02 15:11.22 ---> using "89c0585fea6e0efe18837c1dd4fe4772483d123bc62d2e4be11e9db74e5475f0" from cache


/: (workdir /src)


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i ocamlformat=0.26.2"))
# Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian
# No extra OS packages requirements found.
# All required OS packages found.
# Now letting opam install the packages
The following actions will be performed:
- install sexplib0          v0.14.0  [required by base]
- install cmdliner          1.3.0    [required by ocamlformat]
- install menhirLib         20240715 [required by ocamlformat-lib]
- install menhirCST         20240715 [required by menhir]
- install ocamlbuild        0.16.1   [required by fpath, astring, uuseg]
- install menhirSdk         20240715 [required by ocamlformat-lib]
- install either            1.0.0    [required by ocamlformat-lib]
- install ocaml-version     4.0.1    [required by ocamlformat-lib]
- install result            1.5      [required by ocamlformat-lib]
- install camlp-streams     5.0.1    [required by ocamlformat-lib]
- install csexp             1.5.2    [required by ocamlformat-lib]
- install seq               base     [required by re]
- install fix               20250428 [required by ocamlformat-lib]
- install ocamlfind         1.9.8    [required by ocp-indent, astring, fpath, uuseg]
- install dune-build-info   3.19.0   [required by ocamlformat-lib]
- install menhir            20240715 [required by ocamlformat-lib]
- install dune-configurator 3.19.0   [required by base]
- install re                1.11.0   [required by ocamlformat]
- install topkg             1.0.8    [required by fpath, astring, uuseg]
- install base-bytes        base     [required by ocp-indent]
- install base              v0.14.3  [required by ocamlformat-lib]
- install uutf              1.0.4    [required by ocamlformat-lib]
- install astring           0.8.5    [required by ocamlformat-lib]
- install ocp-indent        1.8.1    [required by ocamlformat-lib]
- install stdio             v0.14.0  [required by ocamlformat-lib]
- install uucp              15.0.0   [required by uuseg]
- install fpath             0.7.3    [required by ocamlformat-lib]
- install uuseg             15.0.0   [required by ocamlformat-lib]
- install ocamlformat-lib   0.26.2   [required by ocamlformat]
- install ocamlformat       0.26.2
===== 30 to install =====


<><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
[astring.0.8.5] found in cache
[base.v0.14.3] found in cache
[camlp-streams.5.0.1] found in cache
[cmdliner.1.3.0] found in cache
[csexp.1.5.2] found in cache
[dune-build-info.3.19.0] found in cache
[dune-configurator.3.19.0] found in cache
[either.1.0.0] found in cache
[fix.20250428] found in cache
[fpath.0.7.3] found in cache
[menhir.20240715] found in cache
[menhirCST.20240715] found in cache
[menhirLib.20240715] found in cache
[menhirSdk.20240715] found in cache
[ocaml-version.4.0.1] found in cache
[ocamlbuild.0.16.1] found in cache
[ocamlfind.1.9.8] found in cache
[ocamlformat.0.26.2] found in cache
[ocamlformat-lib.0.26.2] found in cache
[ocp-indent.1.8.1] found in cache
[re.1.11.0] found in cache
[result.1.5] found in cache
[sexplib0.v0.14.0] found in cache
[stdio.v0.14.0] found in cache
[topkg.1.0.8] found in cache
[uucp.15.0.0] found in cache
[uuseg.15.0.0] found in cache
[uutf.1.0.4] found in cache


<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> installed seq.base
-> installed camlp-streams.5.0.1
-> installed csexp.1.5.2
-> installed either.1.0.0
-> installed fix.20250428
-> installed cmdliner.1.3.0
-> installed menhirCST.20240715
-> installed menhirLib.20240715
-> installed menhirSdk.20240715
-> installed ocaml-version.4.0.1
-> installed re.1.11.0
-> installed result.1.5
-> installed sexplib0.v0.14.0
-> installed dune-build-info.3.19.0
-> installed dune-configurator.3.19.0
-> installed ocamlfind.1.9.8
-> installed base-bytes.base
-> installed ocp-indent.1.8.1
-> installed ocamlbuild.0.16.1
-> installed base.v0.14.3
-> installed stdio.v0.14.0
-> installed topkg.1.0.8
-> installed uutf.1.0.4
-> installed astring.0.8.5
-> installed fpath.0.7.3
-> installed menhir.20240715
-> installed uucp.15.0.0
-> installed uuseg.15.0.0
-> installed ocamlformat-lib.0.26.2
-> installed ocamlformat.0.26.2
Done.


<><> ocp-indent.1.8.1 installed successfully ><><><><><><><><><><><><><><><><><>
=> This package requires additional configuration for use in editors. Install package 'user-setup', or manually:


* for Emacs, add these lines to ~/.emacs:
(add-to-list 'load-path "/home/opam/.opam/4.08/share/emacs/site-lisp")
(require 'ocp-indent)


* for Vim, add this line to ~/.vimrc:
set rtp^="/home/opam/.opam/4.08/share/ocp-indent/vim"
# Run eval $(opam env) to update the current shell environment
2025-06-02 15:11.22 ---> using "d4b210b2ae456b744c774a617bda109b260e6769e817ce6c891aeffd59db4bb6" from cache


/src: (copy (src .) (dst /src/))
2025-06-02 15:11.22 ---> saved as "06b568575f0a1447fcf537349dfaf9d12b53c7c73547b0d5b38263437f0ee72d"


/src: (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)"))
File "applications/static_website_tls/config.ml", line 1, characters 0-0:
diff --git a/_build/default/applications/static_website_tls/config.ml b/_build/default/applications/static_website_tls/.formatted/config.ml
index d9dada8..3d3d728 100644
--- a/_build/default/applications/static_website_tls/config.ml
+++ b/_build/default/applications/static_website_tls/.formatted/config.ml
@@ -17,5 +17,4 @@ let main =
let packages = [ package "uri"; package "magic-mime" ] in
main ~packages "Dispatch.HTTPS" (kv_ro @-> kv_ro @-> http @-> job)


-let () =
-  register "https" [ main $ data $ certs $ https_srv ]
+let () = register "https" [ main $ data $ certs $ https_srv ]
File "applications/http/config.ml", line 1, characters 0-0:
diff --git a/_build/default/applications/http/config.ml b/_build/default/applications/http/.formatted/config.ml
index 49bbb54..6e15b54 100644
--- a/_build/default/applications/http/config.ml
+++ b/_build/default/applications/http/.formatted/config.ml
@@ -42,11 +42,4 @@ let http_server = paf_server ~port tcpv4v6


let () =
register "minipaf"
-    [
-      minipaf
-      $ certificates
-      $ keys
-      $ tcpv4v6
-      $ conn
-      $ http_server;
-    ]
+    [ minipaf $ certificates $ keys $ tcpv4v6 $ conn $ http_server ]
File "device-usage/clock/config.ml", line 1, characters 0-0:
diff --git a/_build/default/device-usage/clock/config.ml b/_build/default/device-usage/clock/.formatted/config.ml
index 10af46f..6232336 100644
--- a/_build/default/device-usage/clock/config.ml
+++ b/_build/default/device-usage/clock/.formatted/config.ml
@@ -5,5 +5,4 @@ let main =
let packages = [ package "duration" ] in
main ~packages "Unikernel" job


-let () =
-  register "speaking_clock" [ main ]
+let () = register "speaking_clock" [ main ]
File "tutorial/app_info/config.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/app_info/config.ml b/_build/default/tutorial/app_info/.formatted/config.ml
index 7fb48f9..35673f5 100644
--- a/_build/default/tutorial/app_info/config.ml
+++ b/_build/default/tutorial/app_info/.formatted/config.ml
@@ -2,8 +2,6 @@
open Mirage


let main =
-  main "Unikernel"
-    ~packages:[ package "fmt"; package "dune-build-info" ]
-    job
+  main "Unikernel" ~packages:[ package "fmt"; package "dune-build-info" ] job


let () = register "app-info" [ main ]
File "device-usage/disk-lottery/config.ml", line 1, characters 0-0:
diff --git a/_build/default/device-usage/disk-lottery/config.ml b/_build/default/device-usage/disk-lottery/.formatted/config.ml
index fe1e980..a116397 100644
--- a/_build/default/device-usage/disk-lottery/config.ml
+++ b/_build/default/device-usage/disk-lottery/.formatted/config.ml
@@ -2,8 +2,7 @@
open Mirage


let main =
-  main "Unikernel.Main"
-    (block @-> job)
+  main "Unikernel.Main" (block @-> job)
~packages:[ package "checkseum"; package "cstruct"; package "fmt" ]


let img =
File "applications/dhcp/unikernel.ml", line 1, characters 0-0:
diff --git a/_build/default/applications/dhcp/unikernel.ml b/_build/default/applications/dhcp/.formatted/unikernel.ml
index 0106c9d..54f5296 100644
--- a/_build/default/applications/dhcp/unikernel.ml
+++ b/_build/default/applications/dhcp/.formatted/unikernel.ml
@@ -15,7 +15,9 @@ module Main (N : Mirage_net.S) = struct
Lwt.return leases
| Ok pkt -> (
let open Dhcp_server.Input in
-        let now = Mirage_mtime.elapsed_ns () |> Duration.to_sec |> Int32.of_int in
+        let now =
+          Mirage_mtime.elapsed_ns () |> Duration.to_sec |> Int32.of_int
+        in
match input_pkt config leases pkt now with
| Silence -> Lwt.return leases
| Update leases ->
File "applications/static_website_tls/dispatch.ml", line 1, characters 0-0:
diff --git a/_build/default/applications/static_website_tls/dispatch.ml b/_build/default/applications/static_website_tls/.formatted/dispatch.ml
index ccb15a1..598fbd3 100644
--- a/_build/default/applications/static_website_tls/dispatch.ml
+++ b/_build/default/applications/static_website_tls/.formatted/dispatch.ml
@@ -55,29 +55,27 @@ module Dispatch (FS : Mirage_kv.RO) (S : HTTP) = struct
let callback (_, cid) request _body =
let uri = Cohttp.Request.uri request in
let cid =
-        begin[@alert "-deprecated"]
+        begin
Cohttp.Connection.to_string cid
end
+        [@alert "-deprecated"]
in
Https_log.info (fun f -> f "[%s] serving %s." cid (Uri.to_string uri));
dispatch uri
in
let conn_closed (_, cid) =
let cid =
-        begin[@alert "-deprecated"]
+        begin
Cohttp.Connection.to_string cid
end
+        [@alert "-deprecated"]
in
Https_log.info (fun f -> f "[%s] closing" cid)
in
S.make ~conn_closed ~callback ()
end


-module HTTPS
-    (DATA : Mirage_kv.RO)
-    (KEYS : Mirage_kv.RO)
-    (Http : HTTP) =
-struct
+module HTTPS (DATA : Mirage_kv.RO) (KEYS : Mirage_kv.RO) (Http : HTTP) = struct
module X509 = Tls_mirage.X509 (KEYS)
module D = Dispatch (DATA) (Http)


File "applications/dhcp/config.ml", line 1, characters 0-0:
diff --git a/_build/default/applications/dhcp/config.ml b/_build/default/applications/dhcp/.formatted/config.ml
index 9103917..047733b 100644
--- a/_build/default/applications/dhcp/config.ml
+++ b/_build/default/applications/dhcp/.formatted/config.ml
@@ -10,6 +10,4 @@ let packages =
]


let main = main "Unikernel.Main" ~packages (network @-> job)
-
-let () =
-  register "dhcp" [ main $ default_network ]
+let () = register "dhcp" [ main $ default_network ]
File "tutorial/hello/config.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/hello/config.ml b/_build/default/tutorial/hello/.formatted/config.ml
index 23a95a1..fb6b2d7 100644
--- a/_build/default/tutorial/hello/config.ml
+++ b/_build/default/tutorial/hello/.formatted/config.ml
@@ -1,7 +1,5 @@
(* mirage >= 4.9.0 & < 4.10.0 *)
open Mirage


-let main =
-  main "Unikernel" job ~packages:[ package "duration" ]
-
+let main = main "Unikernel" job ~packages:[ package "duration" ]
let () = register "hello" [ main ]
File "device-usage/clock/unikernel.ml", line 1, characters 0-0:
diff --git a/_build/default/device-usage/clock/unikernel.ml b/_build/default/device-usage/clock/.formatted/unikernel.ml
index 270c2ea..3976293 100644
--- a/_build/default/device-usage/clock/unikernel.ml
+++ b/_build/default/device-usage/clock/.formatted/unikernel.ml
@@ -10,7 +10,6 @@ let start () =
m "At the stroke, the time will be %a \x07 *BEEP*"
(Ptime.pp_human ?tz_offset_s:tz ())
current_time);
-    Mirage_sleep.ns (Duration.of_sec 1) >>= fun () ->
-    speak ()
+    Mirage_sleep.ns (Duration.of_sec 1) >>= fun () -> speak ()
in
speak ()
File "tutorial/hello/unikernel.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/hello/unikernel.ml b/_build/default/tutorial/hello/.formatted/unikernel.ml
index 33b3ccf..418206a 100644
--- a/_build/default/tutorial/hello/unikernel.ml
+++ b/_build/default/tutorial/hello/.formatted/unikernel.ml
@@ -4,8 +4,7 @@ let start () =
let rec loop = function
| 0 -> Lwt.return_unit
| n ->
-      Logs.info (fun f -> f "hello");
-      Mirage_sleep.ns (Duration.of_sec 1) >>= fun () ->
-      loop (n - 1)
+        Logs.info (fun f -> f "hello");
+        Mirage_sleep.ns (Duration.of_sec 1) >>= fun () -> loop (n - 1)
in
loop 4
File "tutorial/hello-key/unikernel.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/hello-key/unikernel.ml b/_build/default/tutorial/hello-key/.formatted/unikernel.ml
index 90486bd..74a9a21 100644
--- a/_build/default/tutorial/hello-key/unikernel.ml
+++ b/_build/default/tutorial/hello-key/.formatted/unikernel.ml
@@ -9,8 +9,7 @@ let start () =
let rec loop = function
| 0 -> Lwt.return_unit
| n ->
-      Logs.info (fun f -> f "%s" (hello ()));
-      Mirage_sleep.ns (Duration.of_sec 1) >>= fun () ->
-      loop (n - 1)
+        Logs.info (fun f -> f "%s" (hello ()));
+        Mirage_sleep.ns (Duration.of_sec 1) >>= fun () -> loop (n - 1)
in
loop 4
File "tutorial/lwt/timeout2/config.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/lwt/timeout2/config.ml b/_build/default/tutorial/lwt/timeout2/.formatted/config.ml
index f3e9e11..4814dd8 100644
--- a/_build/default/tutorial/lwt/timeout2/config.ml
+++ b/_build/default/tutorial/lwt/timeout2/.formatted/config.ml
@@ -4,7 +4,6 @@ open Mirage
let main =
main
~packages:[ package "duration"; package ~min:"0.2.0" "randomconv" ]
-    "Unikernel"
-    job
+    "Unikernel" job


let () = register "timeout2" [ main ]
File "tutorial/lwt/echo_server/unikernel.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/lwt/echo_server/unikernel.ml b/_build/default/tutorial/lwt/echo_server/.formatted/unikernel.ml
index 76f69d8..58ca81f 100644
--- a/_build/default/tutorial/lwt/echo_server/unikernel.ml
+++ b/_build/default/tutorial/lwt/echo_server/.formatted/unikernel.ml
@@ -10,9 +10,8 @@ let start () =
let rec echo_server = function
| 0 -> Lwt.return ()
| n ->
-      read_line () >>= fun s ->
-      Logs.info (fun m -> m "%s" s);
-      echo_server (n - 1)
+        read_line () >>= fun s ->
+        Logs.info (fun m -> m "%s" s);
+        echo_server (n - 1)
in
echo_server 10
-
File "tutorial/lwt/timeout1/config.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/lwt/timeout1/config.ml b/_build/default/tutorial/lwt/timeout1/.formatted/config.ml
index 9e6cd85..a3b4572 100644
--- a/_build/default/tutorial/lwt/timeout1/config.ml
+++ b/_build/default/tutorial/lwt/timeout1/.formatted/config.ml
@@ -4,7 +4,6 @@ open Mirage
let main =
main
~packages:[ package "duration"; package ~min:"0.2.0" "randomconv" ]
-    "Unikernel"
-    job
+    "Unikernel" job


let () = register "timeout1" [ main ]
File "tutorial/lwt/timeout2/unikernel.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/lwt/timeout2/unikernel.ml b/_build/default/tutorial/lwt/timeout2/.formatted/unikernel.ml
index 7fc9c84..9f1c195 100644
--- a/_build/default/tutorial/lwt/timeout2/unikernel.ml
+++ b/_build/default/tutorial/lwt/timeout2/.formatted/unikernel.ml
@@ -7,8 +7,7 @@ let timeout delay t =
let start () =
let t =
let r = Randomconv.int ~bound:3000 Mirage_crypto_rng.generate in
-    Mirage_sleep.ns (Duration.of_ms r) >|= fun () ->
-    "Heads"
+    Mirage_sleep.ns (Duration.of_ms r) >|= fun () -> "Heads"
in
timeout (Duration.of_sec 2) t >|= function
| None -> Logs.info (fun m -> m "Cancelled")
File "tutorial/lwt/timeout1/unikernel.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/lwt/timeout1/unikernel.ml b/_build/default/tutorial/lwt/timeout1/.formatted/unikernel.ml
index 785d2ce..d51706e 100644
--- a/_build/default/tutorial/lwt/timeout1/unikernel.ml
+++ b/_build/default/tutorial/lwt/timeout1/.formatted/unikernel.ml
@@ -4,16 +4,15 @@ let timeout delay t =
Mirage_sleep.ns delay >>= fun () ->
match Lwt.state t with
| Lwt.Sleep ->
-    Lwt.cancel t;
-    Lwt.return None
+      Lwt.cancel t;
+      Lwt.return None
| Lwt.Return v -> Lwt.return (Some v)
| Lwt.Fail ex -> Lwt.fail ex


let start () =
let t =
let r = Randomconv.int ~bound:3000 Mirage_crypto_rng.generate in
-    Mirage_sleep.ns (Duration.of_ms r) >|= fun () ->
-    "Heads"
+    Mirage_sleep.ns (Duration.of_ms r) >|= fun () -> "Heads"
in
timeout (Duration.of_sec 2) t >|= function
| None -> Logs.info (fun m -> m "Cancelled")
File "tutorial/lwt/heads1/config.ml", line 1, characters 0-0:
diff --git a/_build/default/tutorial/lwt/heads1/config.ml b/_build/default/tutorial/lwt/heads1/.formatted/config.ml
index 655cf40..b030a2e 100644
--- a/_build/default/tutorial/lwt/heads1/config.ml
+++ b/_build/default/tutorial/lwt/heads1/.formatted/config.ml
@@ -1,7 +1,5 @@
(* mirage >= 4.9.0 & < 4.10.0 *)
open Mirage


-let main =
-  main ~packages:[ package "duration" ] "Unikernel" job
-
+let main = main ~packages:[ package "duration" ] "Unikernel" job
let () = register "heads1" [ main ]
File "applications/http/server.ml", line 1, characters 0-0:
diff --git a/_build/default/applications/http/server.ml b/_build/default/applications/http/.formatted/server.ml
index d12b3ec..440e994 100644
--- a/_build/default/applications/http/server.ml
+++ b/_build/default/applications/http/.formatted/server.ml
@@ -258,10 +258,7 @@ module S_HTTP_1_1 = struct


let with_etag etag response =
let headers = response.H1.Response.headers in
-    {
-      response with
-      H1.Response.headers = H1.Headers.add headers "etag" etag;
-    }
+    { response with H1.Response.headers = H1.Headers.add headers "etag" etag }


let with_status (status : H2.Status.t) response =
match status with
@@ -288,9 +285,7 @@ let connect_http_1_1 ~ctx ~authenticator ~to_close flow reqd =
Lwt.async (fun () ->
Connect.create_connection ~ctx ~authenticator uri >>= function
| Ok dst ->
-              let headers =
-                H1.Headers.of_list [ ("connection", "close") ]
-              in
+              let headers = H1.Headers.of_list [ ("connection", "close") ] in
let response =
H1.Response.create ~reason:"CONNECT" ~headers `OK
in
@@ -367,9 +362,7 @@ let http_1_1_request_handler ~ctx ~authenticator ~to_close =
("content-type", content_type);
]
in
-            let response =
-              H1.Response.create ~reason:"transmit" ~headers `OK
-            in
+            let response = H1.Response.create ~reason:"transmit" ~headers `OK in
let src = H1.Reqd.request_body reqd in
let dst = H1.Reqd.respond_with_streaming reqd response in
transmit src dst
@@ -379,9 +372,7 @@ let http_1_1_request_handler ~ctx ~authenticator ~to_close =
in
hash_of_seed ~respond request
| [ ""; "random" ] -> (
-            match
-              H1.Headers.get request.H1.Request.headers "x-length"
-            with
+            match H1.Headers.get request.H1.Request.headers "x-length" with
| Some v when String.for_all is_digit v ->
let length = Int64.of_string v in
let g =
@@ -403,8 +394,8 @@ let http_1_1_request_handler ~ctx ~authenticator ~to_close =
transmit_random
~write_string:(fun body str ->
H1.Body.Writer.write_string body str)
-                  ~flush:H1.Body.Writer.flush
-                  ~close_writer:H1.Body.Writer.close ?g length body
+                  ~flush:H1.Body.Writer.flush ~close_writer:H1.Body.Writer.close
+                  ?g length body
| _ ->
let contents = "Invalid length." in
let headers =
dune build @fmt failed
"/usr/bin/env" "bash" "-c" "opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2)" failed with exit status 2
2025-06-02 15:11.24: Job failed: Failed: Build failed