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

error logging on error in handle_command

Browse source
This commit is contained in:
Hannes Mehnert 2018-11-03 00:04:47 +01:00
parent 7b3d94db8c
commit 79068c8abf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/vmm_vmmd.ml
View file

@ -96,7 +96,7 @@ let handle_command t (header, payload) =
let msg_to_err = function let msg_to_err = function
| Ok x -> x | Ok x -> x
| Error (`Msg msg) -> | 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) (t, [ `Data (header, `Failure msg) ], `End)
in in
let reply x = `Data (header, `Success x) in let reply x = `Data (header, `Success x) in