30 lines
891 B
OCaml
30 lines
891 B
OCaml
open Functoria
|
|
open E2e
|
|
|
|
let opt = runtime_arg ~pos:__POS__ "App.opt"
|
|
let opt_all = runtime_arg ~pos:__POS__ "App.opt_all"
|
|
let flag = runtime_arg ~pos:__POS__ "App.flag"
|
|
let required = runtime_arg ~pos:__POS__ "App.required"
|
|
|
|
let runtime_args =
|
|
[ runtime_arg ~pos:__POS__ "App.hello"; runtime_arg ~pos:__POS__ "App.arg" ]
|
|
|
|
let keys =
|
|
let connect _ _ = function
|
|
| [ opt; opt_all; flag; required ] ->
|
|
code ~pos:__POS__
|
|
{|
|
|
let _ : string = %s
|
|
and _ : string list = %s
|
|
and _ : bool = %s
|
|
and _ : string = %s
|
|
in
|
|
return ()|}
|
|
opt opt_all flag required
|
|
| _ -> failwith "keys: connect needs exactly 4 arguments"
|
|
in
|
|
let runtime_args = [ opt; opt_all; flag; required ] in
|
|
impl ~connect ~runtime_args "Unit" job
|
|
|
|
let main = main ~runtime_args ~pos:__POS__ "App.Make" (job @-> job)
|
|
let () = register "noop" [ main $ keys ]
|