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

vmmd_stat: use correct id to remove socket

This commit is contained in:
Hannes Mehnert 2019-01-06 03:00:16 +01:00
parent 21262dd891
commit cd01611efb
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/vmm_stats_pure.ml
View File

@ -120,7 +120,7 @@ let tick t =
| None -> Logs.err (fun m -> m "couldn't drop super %a from sub %a" Vmm_core.Name.pp id Vmm_core.Name.pp vmid) ; out
| Some real_id ->
let header = Vmm_commands.{ version = my_version ; sequence = 0L ; name = real_id } in
((socket, vmid, (header, `Data (`Stats_data stats))) :: out))
((socket, id, (header, `Data (`Stats_data stats))) :: out))
out xs)
[] (Vmm_trie.all t'.vmid_pid)
in

6
app/vmmd_stats.ml
View File

@ -62,12 +62,12 @@ let handle s addr () =
let timer () =
let t', outs = tick !t in
t := t' ;
Lwt_list.iter_p (fun (s, name, stat) ->
Lwt_list.iter_p (fun (s, id, stat) ->
Vmm_lwt.write_wire s stat >>= function
| Ok () -> Lwt.return_unit
| Error `Exception ->
Logs.debug (fun m -> m "removing entry %a" Vmm_core.Name.pp name) ;
t := remove_entry !t name ;
Logs.debug (fun m -> m "removing entry %a" Vmm_core.Name.pp id) ;
t := remove_entry !t id ;
Vmm_lwt.safe_close s)
outs