diff options
Diffstat (limited to 'src/vyconf_client.ml')
| -rw-r--r-- | src/vyconf_client.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/vyconf_client.ml b/src/vyconf_client.ml index 1f00f29..c4811c5 100644 --- a/src/vyconf_client.ml +++ b/src/vyconf_client.ml @@ -48,8 +48,8 @@ let do_request client req = let%lwt resp = Vyconf_connect.Message.read client.ic in decode_pb_response (Pbrt.Decoder.of_bytes resp) |> Lwt.return -let get_status client = - let req = Status in +let prompt client = + let req = Prompt in let%lwt resp = do_request client req in Lwt.return resp @@ -135,7 +135,9 @@ let delete client path = | _ -> Error (Option.value resp.error ~default:"") |> Lwt.return let commit client = - let req = Commit {confirm=None; confirm_timeout=None; comment=None;} in + let req = + Commit {confirm=None; confirm_timeout=None; comment=None; dry_run=None} + in let%lwt resp = do_request client req in match resp.status with | Success -> Ok (Option.value resp.output ~default:"") |> Lwt.return |