reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

forgot loop on this exit in add_policy

Browse source
This commit is contained in:
Hannes Mehnert 2018-11-01 01:23:45 +01:00
parent 5392b6e3b3
commit 9f674f7e6f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/vmm_vmmd.ml
View file

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