From 131dec0cdd44aad73ce4605c8e158ac8c26a7c90 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Sun, 27 Jan 2019 16:11:40 +0100
Subject: [PATCH] debug

---
 app/vmmd.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/app/vmmd.ml b/app/vmmd.ml
index 6f76b6e..dce35cd 100644
--- a/app/vmmd.ml
+++ b/app/vmmd.ml
@@ -143,10 +143,13 @@ let rec stats_loop () =
   stats_loop ()
 
 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 () ->
       Vmm_lwt.write_wire fd (header, cmd) >>= function
       | 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) ->
     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"