mirror of
https://github.com/linuxkit/linuxkit.git
synced 2026-04-06 05:46:41 +00:00
c7c33b9a56
This is mainly a test for the Cap'n'Proto RPC support. Signed-off-by: Thomas Leonard <thomas.leonard@docker.com>
22 lines
475 B
OCaml
22 lines
475 B
OCaml
open Lwt.Infix
|
|
|
|
let () = Common.init_logging ()
|
|
|
|
let main store_socket =
|
|
Lwt_main.run begin
|
|
Lwt_switch.with_switch @@ fun switch ->
|
|
Store.service () >>= fun store ->
|
|
Common.listen ~switch ~offer:store store_socket
|
|
end
|
|
|
|
open Cmdliner
|
|
|
|
let store =
|
|
let doc = "The database store to serve" in
|
|
Arg.(required @@ pos 0 (some string) None @@ info ~doc ~docv:"STORE" [])
|
|
|
|
let cmd =
|
|
Term.(const main $ store), Term.info "store"
|
|
|
|
let () = Term.(exit @@ eval cmd)
|