2024-09-19 13:44:07 +00:00
|
|
|
(* mirage >= 4.7.0 *)
|
2023-05-03 13:43:23 +00:00
|
|
|
open Mirage
|
|
|
|
|
|
|
|
let main =
|
2024-09-19 13:44:07 +00:00
|
|
|
let runtime_args = [
|
|
|
|
runtime_arg ~pos:__POS__ "Unikernel.K.port";
|
|
|
|
runtime_arg ~pos:__POS__ "Unikernel.K.hostkey";
|
|
|
|
] in
|
2023-05-03 13:43:23 +00:00
|
|
|
let packages = [
|
2024-09-19 13:44:07 +00:00
|
|
|
package "awa" ~pin:"git+https://github.com/reynir/awa-ssh.git#banawa";
|
|
|
|
package "banawa-mirage" ~pin:"git+https://github.com/sorbusursina/banawa-ssh.git#awa";
|
2023-05-04 11:49:25 +00:00
|
|
|
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";
|
2023-05-03 13:43:23 +00:00
|
|
|
] in
|
2024-09-19 13:44:07 +00:00
|
|
|
main ~runtime_args ~packages "Unikernel.Main" (random @-> time @-> mclock @-> stackv4v6 @-> job)
|
2023-05-03 13:43:23 +00:00
|
|
|
|
|
|
|
let () =
|
|
|
|
register "banawa-chat" [
|
|
|
|
main $ default_random $ default_time $ default_monotonic_clock $ generic_stackv4v6 default_network
|
|
|
|
]
|