summaryrefslogtreecommitdiff
path: root/src/vycli.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/vycli.ml')
-rw-r--r--src/vycli.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vycli.ml b/src/vycli.ml
index 75e92b5..174d6f4 100644
--- a/src/vycli.ml
+++ b/src/vycli.ml
@@ -67,7 +67,8 @@ let main socket op path out_format config_format =
| _ -> Error (Option.value resp.error ~default:"") |> Lwt.return
end
| OpSetupSession ->
- let%lwt resp = setup_session client "vycli" in
+ let pid = Int32.of_int (Unix.getppid ()) in
+ let%lwt resp = setup_session client "vycli" pid in
begin
match resp with
| Ok c -> get_token c