Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-08-08 06:32:50 -04:00
Code Issues Projects Releases Packages Wiki Activity

Report current memory use to XenStore

Browse source
This commit is contained in:
Thomas Leonard 2016-01-02 15:59:59 +00:00
parent 425ba26286
commit f1ed6ffdd8
3 changed files with 44 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
unikernel.ml
View file

@ -61,6 +61,8 @@ module Main (Clock : V1.CLOCK) = struct
let shutdown_rq = OS.Lifecycle.await_shutdown () >>= fun (`Poweroff | `Reboot) -> return () in
(* Set up networking *)
let net_listener = network qubesDB in
(* Report memory usage to XenStore *)
Memory_pressure.init ();
(* Run until something fails or we get a shutdown request. *)
Lwt.choose [agent_listener; net_listener; shutdown_rq] >>= fun () ->
(* Give the console daemon time to show any final log messages. *)