diff options
| author | John Estabrook <jestabro@vyos.io> | 2024-12-06 08:48:14 -0600 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-12-06 08:48:14 -0600 |
| commit | 2b979d7fc25793e5be29376a4951375c0bf328d9 (patch) | |
| tree | 815fc2d64f76267a217eadd0a167157b61bd92f8 /lib | |
| parent | 9e4f6c1494fcff64ad22503b704dbdd43347b0a6 (diff) | |
| parent | bd71aa6b728f037ad5d85d9310f3380342714348 (diff) | |
| download | libvyosconfig-2b979d7fc25793e5be29376a4951375c0bf328d9.tar.gz libvyosconfig-2b979d7fc25793e5be29376a4951375c0bf328d9.zip | |
Merge pull request #21 from jestabro/vyconf-minimal
T6718: use the vyconf daemon for validation of set commands
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/bindings.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/bindings.ml b/lib/bindings.ml index 02f606a..052495d 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -224,9 +224,9 @@ let tree_union c_ptr_l c_ptr_r = with CD.Nonexistent_child -> error_message := "Nonexistent child"; Ctypes.null -let reference_tree_to_json from_dir to_file = +let reference_tree_to_json internal_cache from_dir to_file = try - Generate.reference_tree_to_json from_dir to_file; 0 + Generate.reference_tree_to_json ~internal_cache:internal_cache from_dir to_file; 0 with | Generate.Load_error msg -> let s = Printf.sprintf "Load_error \'%s\'" msg in @@ -276,6 +276,6 @@ struct let () = I.internal "diff_tree" (string @-> (ptr void) @-> (ptr void) @-> returning (ptr void)) diff_tree let () = I.internal "show_diff" (bool @-> string @-> (ptr void) @-> (ptr void) @-> returning string) show_diff let () = I.internal "tree_union" ((ptr void) @-> (ptr void) @-> returning (ptr void)) tree_union - let () = I.internal "reference_tree_to_json" (string @-> string @-> returning int) reference_tree_to_json + let () = I.internal "reference_tree_to_json" (string @-> string @-> string @-> returning int) reference_tree_to_json let () = I.internal "mask_tree" ((ptr void) @-> (ptr void) @-> returning (ptr void)) mask_tree end |