diff --git a/albatross_json.ml b/albatross_json.ml index 26a142d..52b7de8 100644 --- a/albatross_json.ml +++ b/albatross_json.ml @@ -207,9 +207,9 @@ let policy_of_json js = (String.split_on_char ',' bridges)); } in - match Vmm_core.Policy.usable policy with - | Ok () -> Ok policy - | Error (`Msg err) -> Error (`Msg err)) + let ( let* ) = Result.bind in + let* () = Vmm_core.Policy.usable policy in + Ok policy | _ -> Error (`Msg