This commit is contained in:
Hannes Mehnert 2018-09-20 23:19:55 +02:00
parent 99ba1c5e4b
commit 38b98ab318

View file

@ -123,7 +123,7 @@ let handle_command t hdr buf =
else Vmm_wire.decode_strings buf >>= fun (id, _off) -> else Vmm_wire.decode_strings buf >>= fun (id, _off) ->
match Vmm_wire.Vm.int_to_op hdr.Vmm_wire.tag with match Vmm_wire.Vm.int_to_op hdr.Vmm_wire.tag with
| None -> Error (`Msg "unknown command") | None -> Error (`Msg "unknown command")
| Some Info -> | Some Vmm_wire.Vm.Info ->
Logs.debug (fun m -> m "info %a" pp_id id) ; Logs.debug (fun m -> m "info %a" pp_id id) ;
begin match Vmm_resources.find t.resources id with begin match Vmm_resources.find t.resources id with
| None -> | None ->
@ -136,10 +136,10 @@ let handle_command t hdr buf =
let out = Vmm_wire.Vm.info_reply hdr.Vmm_wire.id t.client_version data in let out = Vmm_wire.Vm.info_reply hdr.Vmm_wire.id t.client_version data in
Ok (t, [ `Data out ], `End) Ok (t, [ `Data out ], `End)
end end
| Some Create -> | Some Vmm_wire.Vm.Create ->
Vmm_wire.Vm.decode_vm_config buf >>= fun vm_config -> Vmm_wire.Vm.decode_vm_config buf >>= fun vm_config ->
handle_create t hdr vm_config handle_create t hdr vm_config
| Some Destroy -> | Some Vmm_wire.Vm.Destroy ->
match Vmm_resources.find_vm t.resources id with match Vmm_resources.find_vm t.resources id with
| Some vm -> | Some vm ->
Vmm_unix.destroy vm ; Vmm_unix.destroy vm ;