From a47193f147dc67a0e75eeb1358e55a8786822099 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Mon, 4 Nov 2024 17:33:50 +0100 Subject: [PATCH] tweaks --- mirage/unikernel.ml | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/mirage/unikernel.ml b/mirage/unikernel.ml index 11098ee..4fac591 100644 --- a/mirage/unikernel.ml +++ b/mirage/unikernel.ml @@ -126,7 +126,7 @@ module Make Store.pp_error e Mirage_kv.Key.pp step); go () | Ok steps -> - explore := !explore @ List.map fst steps; + explore := List.map fst steps @ !explore; go () in go () @@ -286,6 +286,12 @@ module Make common_bindings let set_from_handle dev dest h = + (* TODO: we need a function in tar which + (a) takes a path + (b) takes a function that reads (from the swap) and writes (to the tar) + (c) once the function is finished, it writes the tar header + -> this would allow us to avoid the rename stuff below + *) let size = Optint.Int63.of_int64 (Swap.size h) in KV.allocate dev dest size >>= fun r -> let rec loop offset =