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

debug

Browse source
This commit is contained in:
Hannes Mehnert 2019-01-27 16:11:40 +01:00
parent 16f06216ba
commit 131dec0cdd
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
app/vmmd.ml
View file

@ -143,10 +143,13 @@ let rec stats_loop () =
stats_loop () stats_loop ()
let write_reply name (fd, mut) txt (header, cmd) = let write_reply name (fd, mut) txt (header, cmd) =
Logs.debug (fun m -> m "locking to write to %s" name) ;
Lwt_mutex.with_lock mut (fun () -> Lwt_mutex.with_lock mut (fun () ->
Vmm_lwt.write_wire fd (header, cmd) >>= function Vmm_lwt.write_wire fd (header, cmd) >>= function
| Error `Exception -> invalid_arg ("exception during " ^ txt ^ " while writing to " ^ name) | Error `Exception -> invalid_arg ("exception during " ^ txt ^ " while writing to " ^ name)
| Ok () -> Vmm_lwt.read_wire fd) >|= function | Ok () -> Vmm_lwt.read_wire fd) >|= fun r ->
Logs.debug (fun m -> m "unlocking, wrote and read %s" name) ;
match r with
| Ok (header', reply) -> | Ok (header', reply) ->
if not Vmm_commands.(version_eq header.version header'.version) then begin if not Vmm_commands.(version_eq header.version header'.version) then begin
Logs.err (fun m -> m "%s: wrong version (got %a, expected %a) in reply from %s" Logs.err (fun m -> m "%s: wrong version (got %a, expected %a) in reply from %s"