From 79068c8abfa6c50c2f570a3a8b6238aeee4c8774 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Sat, 3 Nov 2018 00:04:47 +0100
Subject: [PATCH] error logging on error in handle_command

---
 src/vmm_vmmd.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vmm_vmmd.ml b/src/vmm_vmmd.ml
index eaee759..7e1abe8 100644
--- a/src/vmm_vmmd.ml
+++ b/src/vmm_vmmd.ml
@@ -96,7 +96,7 @@ let handle_command t (header, payload) =
   let msg_to_err = function
     | Ok x -> x
     | Error (`Msg msg) ->
-      Logs.debug (fun m -> m "error while processing command: %s" msg) ;
+      Logs.err (fun m -> m "error while processing command: %s" msg) ;
       (t, [ `Data (header, `Failure msg) ], `End)
   in
   let reply x = `Data (header, `Success x) in