1 files changed, 7 insertions, 0 deletions
diff --git a/src/session.ml b/src/session.ml
index 1843682..5f0d5a3 100644
--- a/src/session.ml
+++ b/src/session.ml
@@ -114,6 +114,13 @@ let load w s file =
     | Ok config ->
         validate_tree w config; {s with proposed_config=config;}
 
+let save w s file =
+    let ct = w.running_config in
+    let res = Vyos1x.Config_file.save_config ct file in
+    match res with
+    | Error e -> raise (Session_error (Printf.sprintf "Error saving config: %s" e))
+    | Ok () -> s
+
 let get_value w s path =
     if not (VT.exists s.proposed_config path) then
         raise (Session_error ("Config path does not exist"))