29 lines
1.0 KiB
OCaml
29 lines
1.0 KiB
OCaml
open Mirage
|
|
|
|
let port =
|
|
let doc = Key.Arg.info ~doc:"The TCP port for listening for SSH connections" ["port"] in
|
|
Key.(create "port" Arg.(opt int 22 doc))
|
|
|
|
let hostkey =
|
|
let doc = Key.Arg.info ~doc:"SSH host key" ["hostkey"] in
|
|
Key.(create "hostkey" Arg.(required string doc))
|
|
|
|
let main =
|
|
let packages = [
|
|
package "banawa" ~pin:"git+https://github.com/sorbusursina/banawa-ssh.git";
|
|
package "banawa-mirage" ~pin:"git+https://github.com/sorbusursina/banawa-ssh.git";
|
|
package "notty";
|
|
package "nottui"
|
|
~pin:"git+https://github.com/dinosaure/lwd.git#9e78758d5987597bac65fe73bd30ff80741cfe83";
|
|
package "lwd"
|
|
~pin:"git+https://github.com/dinosaure/lwd.git#9e78758d5987597bac65fe73bd30ff80741cfe83";
|
|
package "art";
|
|
] in
|
|
let keys = [ Key.v port ; Key.v hostkey ] in
|
|
foreign ~keys ~packages "Unikernel.Main" (random @-> time @-> mclock @-> stackv4v6 @-> job)
|
|
|
|
let () =
|
|
register "banawa-chat" [
|
|
main $ default_random $ default_time $ default_monotonic_clock $ generic_stackv4v6 default_network
|
|
]
|