Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-09-20 12:54:41 -04:00
Code Issues Projects Releases Packages Wiki Activity

Split database access into its own module

Browse source
This commit is contained in:
Thomas Leonard 2015-12-30 11:59:32 +00:00
parent 914b6bbbf6
commit f3332ed4da
5 changed files with 158 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

3
unikernel.ml
View file

@ -37,8 +37,7 @@ module Main (Clock : V1.CLOCK) = struct
(* Watch for shutdown requests from Qubes *)
let shutdown_rq = OS.Lifecycle.await_shutdown () >|= function `Poweroff | `Reboot -> () in
(* Set up networking *)
OS.Xs.make () >>= fun xs ->
let net = N.connect ~xs qubesDB in
let net = N.connect qubesDB in
(* Run until something fails or we get a shutdown request. *)
Lwt.choose [agent_listener; net; shutdown_rq] >>= fun () ->
(* Give the console daemon time to show any final log messages. *)