40 lines
1.3 KiB
OCaml
40 lines
1.3 KiB
OCaml
(* mirage >= 4.8.0 & < 4.9.0 *)
|
|
open Mirage
|
|
|
|
let mirror =
|
|
main "Unikernel.Make"
|
|
~packages:[
|
|
package ~min:"0.3.0" ~sublibs:[ "mirage" ] "paf" ;
|
|
package "h2" ;
|
|
package "ohex" ;
|
|
package "httpaf" ;
|
|
package ~min:"0.1.1" "git-kv" ;
|
|
package ~min:"3.10.0" "git-paf" ;
|
|
package "opam-file-format" ;
|
|
package ~min:"3.0.0" ~sublibs:[ "gz" ] "tar" ;
|
|
package ~min:"3.0.0" "tar-mirage" ;
|
|
package ~max:"0.2.0" "mirage-block-partition" ;
|
|
package ~min:"0.0.8" "http-mirage-client" ;
|
|
package "gpt" ;
|
|
package "gptar" ;
|
|
package "oneffs" ;
|
|
package "digestif" ;
|
|
package "swapfs" ;
|
|
]
|
|
(block @-> time @-> pclock @-> stackv4v6 @-> git_client @-> alpn_client @-> job)
|
|
|
|
let stack = generic_stackv4v6 default_network
|
|
let he = generic_happy_eyeballs stack
|
|
let dns = generic_dns_client stack he
|
|
let tcp = tcpv4v6_of_stackv4v6 stack
|
|
let block = block_of_file "tar"
|
|
|
|
let git_client, alpn_client =
|
|
let git = mimic_happy_eyeballs stack he dns in
|
|
merge_git_clients (git_ssh tcp git)
|
|
(merge_git_clients (git_tcp tcp git)
|
|
(git_http tcp git)),
|
|
paf_client tcp (mimic_happy_eyeballs stack he dns)
|
|
|
|
let () = register "mirror"
|
|
[ mirror $ block $ default_time $ default_posix_clock $ stack $ git_client $ alpn_client ]
|