summaryrefslogtreecommitdiff
path: root/src/vyconf_cli_compat.ml
diff options
context:
space:
mode:
authorJohn Estabrook <jestabro@vyos.io>2025-12-02 13:34:01 -0600
committerGitHub <noreply@github.com>2025-12-02 13:34:01 -0600
commitb4acb65d767c4af1f1df2b252ea9030735c08342 (patch)
tree971a0ab51a12ef1925a1c691c7bf700f9c925cb7 /src/vyconf_cli_compat.ml
parent092dc65ab2197725faddbfcd2c64abb9f0151869 (diff)
parent9def9bcde17e0720283dae6822bece98983bf7ee (diff)
downloadvyconf-b4acb65d767c4af1f1df2b252ea9030735c08342.tar.gz
vyconf-b4acb65d767c4af1f1df2b252ea9030735c08342.zip
Merge pull request #37 from jestabro/vyconf-session-unsaved
T8032: add translation of cli-shell-api sessionUnsaved
Diffstat (limited to 'src/vyconf_cli_compat.ml')
-rw-r--r--src/vyconf_cli_compat.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vyconf_cli_compat.ml b/src/vyconf_cli_compat.ml
index eaa3501..6ebd1f1 100644
--- a/src/vyconf_cli_compat.ml
+++ b/src/vyconf_cli_compat.ml
@@ -9,6 +9,7 @@ type op_t =
| OpEditLevelRoot
| OpShowConfig
| OpSessionChanged
+ | OpConfigUnsaved
let op_of_arg s =
match s with
@@ -19,6 +20,7 @@ let op_of_arg s =
| "editLevelAtRoot" -> OpEditLevelRoot
| "showCfg" -> OpShowConfig
| "sessionChanged" -> OpSessionChanged
+ | "sessionUnsaved" -> OpConfigUnsaved
| _ -> failwith (Printf.sprintf "Unknown operation %s" s)
let in_cli_config_session () =
@@ -88,6 +90,7 @@ let main op path =
| OpEditLevelRoot -> edit_level_root c
| OpShowConfig -> show_config c path
| OpSessionChanged -> session_changed c
+ | OpConfigUnsaved -> config_unsaved c None
end
| Error e -> Error e |> Lwt.return
in