forgot loop on this exit in add_policy

This commit is contained in:
Hannes Mehnert 2018-11-01 01:23:45 +01:00
parent 5392b6e3b3
commit 9f674f7e6f

View file

@ -116,7 +116,7 @@ let handle_command t (header, payload) =
| Some p' -> eq_policy policy p'
in
if same_policy then
Ok (t, [ reply (`String "no modification of policy") ], `End)
Ok (t, [ reply (`String "no modification of policy") ], `Loop)
else
Vmm_resources.insert_policy t.resources id policy >>= fun resources ->
Ok ({ t with resources }, [ reply (`String "added policy") ], `Loop)