This repository has no description
1open Eio.Std
2
3let _root_filesystem =
4 "/obuilder-zfs/result/fe532e693c6a86db16b50547aae1345b3515c727b8ed668b3e0c33c1e9a895f9/rootfs"
5
6let () =
7 Eio_posix.run @@ fun _ ->
8 Switch.run @@ fun sw ->
9 let open Void in
10 let void =
11 empty
12 |> mount ~mode:R ~src:"/tmp/test" ~tgt:"bin"
13 |> exec [ "/bin/busybox"; "ls" ]
14 in
15 let t = Void.spawn ~sw void in
16 match Promise.await (Void.exit_status t) with
17 | Unix.WEXITED 0 -> print_endline "done"
18 | Unix.WEXITED n -> Printf.printf "Exited with %i\n%!" n
19 | Unix.WSTOPPED n -> Printf.printf "Stopped with %i\n%!" n
20 | Unix.WSIGNALED n -> Printf.printf "Signalled with %i\n%!" n