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

more debug output from vmmd_tls

This commit is contained in:
Hannes Mehnert 2018-11-03 00:04:14 +01:00
parent e5f8248668
commit 7b3d94db8c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/vmmd_tls.ml
View File

@ -78,16 +78,18 @@ let handle ca (tls, addr) =
| Error `Exception -> Lwt.return (Error (`Msg "failed to write policy"))
| Ok () ->
Vmm_lwt.read_wire fd >|= function
| Error _ -> Error (`Msg "read error")
| Error _ -> Error (`Msg "read error after writing policy")
| Ok (_, `Success _) -> Ok ()
| Ok _ ->
| Ok wire ->
(* TODO check version *)
Error (`Msg ("expected success, received something else when adding policy")))
Rresult.R.error_msgf
"expected success when adding policy, got: %a"
Vmm_commands.pp_wire wire)
(Ok ()) policies
| _ -> Lwt.return (Ok ())) >>= function
| Error (`Msg msg) ->
begin
Logs.debug (fun m -> m "error while applying policies %s" msg) ;
Logs.warn (fun m -> m "error while applying policies %s" msg) ;
let wire =
let header = Vmm_commands.{version = my_version ; sequence = 0L ; id = name } in
header, `Failure msg