style

app/vmm_console.ml

@@ -123,23 +123,15 @@ let handle s addr () =
       (if not (version_eq hdr.version my_version) then
          Lwt.return (Error (`Msg "ignoring data with bad version"))
        else
+         match decode_str data with
+         | Error e -> Lwt.return (Error e)
+         | Ok (name, off) ->
            match Console.int_to_op hdr.tag with
-         | Some Add ->
+           | Some Add -> add_fifo s name
-           (match decode_str data with
+           | Some Attach -> attach name
-            | Error e -> Lwt.return (Error e)
+           | Some Detach -> detach name
-            | Ok (name, _) -> add_fifo s name)
-         | Some Attach ->
-           (match decode_str data with
-            | Error e -> Lwt.return (Error e)
-            | Ok (name, _) -> attach name)
-         | Some Detach ->
-           (match decode_str data with
-            | Error e -> Lwt.return (Error e)
-            | Ok (name, _) -> detach name)
            | Some History ->
-           (match decode_str data with
+             (match decode_ts ~off data with
-             | Error e -> Lwt.return (Error e)
-             | Ok (name, off) -> match decode_ts ~off data with
               | Error e -> Lwt.return (Error e)
               | Ok since -> history s name since)
            | _ ->

app/vmm_log.ml

@@ -85,8 +85,7 @@ let handle fd ring s addr () =
                    in
                    Ok (`Out out)
              end
-           | _ ->
+           | _ -> Error (`Msg "unknown command"))
-             Error (`Msg "unknown command"))
       in
       match out with
       | Error (`Msg msg) ->

provision/vmm_req_delegation.ml

@@ -13,7 +13,7 @@ let subca_csr key name cpus mem vms block bridges =
     | Some x -> [ (false, `Unsupported (Oid.block, int_to_cstruct x)) ]
   and bridge = match bridges with
     | [] -> []
-    | xs -> [ (false, `Unsupported (Oid.bridges, bridges_to_cstruct bridges)) ]
+    | xs -> [ (false, `Unsupported (Oid.bridges, bridges_to_cstruct xs)) ]
   in
   let exts =
     [ (false, `Unsupported (Oid.version, version_to_cstruct asn_version)) ;

src/vmm_engine.ml

@@ -345,7 +345,7 @@ let handle_revocation t s leaf chain ca prefix =
    | None -> Ok ()
    | Some local -> match X509.CRL.crl_number local, X509.CRL.crl_number crl with
      | None, _ -> Ok ()
-     | Some x, None -> Error (`Msg "CRL number not present")
+     | Some _, None -> Error (`Msg "CRL number not present")
      | Some x, Some y -> if y > x then Ok () else Error (`Msg "CRL number not increased")) >>= fun () ->
   (* filename should be whatever_dir / crls / <id> *)
   let filename = Fpath.(t.dir / "crls" / string_of_id prefix) in
@@ -355,7 +355,7 @@ let handle_revocation t s leaf chain ca prefix =
   let crls =
     match local with
     | None -> crl :: t.crls
-    | Some x -> crl :: List.filter (fun c -> c <> crl) t.crls
+    | Some _ -> crl :: List.filter (fun c -> c <> crl) t.crls
   in
   (* iterate over revoked serials, find active resources, and kill them *)
   let newly_revoked =
@@ -508,7 +508,7 @@ let handle_log state hdr buf =
     state, []
   end else match IM.find hdr.id state.log_requests with
     | exception Not_found ->
-      Logs.err (fun m -> m "coudn't find log request") ;
+      Logs.warn (fun m -> m "(ignored) coudn't find log request") ;
       (state, [])
     | (s, rid) ->
       let r = match int_to_op hdr.tag with