Skip to content

Commit e6af4ab

Browse files
authored
Merge pull request #5711 from Vincent-lau/private/shul2/stack-version-cli
Make `cluster-stack-version` show up in the CLI
2 parents 4770d5e + c14aa08 commit e6af4ab

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

ocaml/xapi-cli-server/records.ml

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -5044,6 +5044,11 @@ let cluster_record rpc session_id cluster =
50445044
; make_field ~name:"cluster-stack"
50455045
~get:(fun () -> (x ()).API.cluster_cluster_stack)
50465046
()
5047+
; make_field ~name:"cluster-stack-version"
5048+
~get:(fun () ->
5049+
(x ()).API.cluster_cluster_stack_version |> Int64.to_string
5050+
)
5051+
()
50475052
; make_field ~name:"token-timeout"
50485053
~get:(fun () -> string_of_float (x ()).API.cluster_token_timeout)
50495054
()

0 commit comments

Comments
 (0)