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

bump wire version

Browse source
This commit is contained in:
Hannes Mehnert 2018-11-12 22:11:06 +01:00
parent 8ccda0e410
commit dec32e6247
13 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/vmm_stats_pure.ml
View file

@ -16,7 +16,7 @@ external vmmapi_close : vmctx -> unit = "vmmanage_vmmapi_close"
external vmmapi_statnames : vmctx -> string list = "vmmanage_vmmapi_statnames"
external vmmapi_stats : vmctx -> int64 list = "vmmanage_vmmapi_stats"
let my_version = `AV2
let my_version = `AV3
let descr = ref []

2
app/vmmc_bistro.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix
let version = `AV2
let version = `AV3
let read fd =
(* now we busy read and process output *)

2
app/vmmc_local.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix
let version = `AV2
let version = `AV3
let socket t = function
| Some x -> x

2
app/vmmc_remote.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix
let version = `AV2
let version = `AV3
let rec read_tls_write_cons t =
Vmm_tls_lwt.read_tls t >>= function

2
app/vmmd.ml
View file

@ -18,7 +18,7 @@ let pp_stats ppf s =
open Lwt.Infix
let version = `AV2
let version = `AV3
let state = ref (Vmm_vmmd.init version)

2
app/vmmd_console.ml
View file

@ -14,7 +14,7 @@ open Lwt.Infix
open Astring
let my_version = `AV2
let my_version = `AV3
let pp_unix_error ppf e = Fmt.string ppf (Unix.error_message e)

2
app/vmmd_influx.ml
View file

@ -141,7 +141,7 @@ module P = struct
vm ifd.ifname (String.concat ~sep:"," fields)
end
let my_version = `AV2
let my_version = `AV3
let command = ref 1L

2
app/vmmd_log.ml
View file

@ -10,7 +10,7 @@
open Lwt.Infix
let my_version = `AV2
let my_version = `AV3
let broadcast prefix wire t =
Lwt_list.fold_left_s (fun t (id, s) ->

2
app/vmmd_tls.ml
View file

@ -2,7 +2,7 @@
open Lwt.Infix
let my_version = `AV2
let my_version = `AV3
let command = ref 0L

2
app/vmmp_request.ml
View file

@ -5,7 +5,7 @@ open Vmm_asn
open Rresult.R.Infix
let version = `AV2
let version = `AV3
let csr priv name cmd =
let exts = [ (false, `Unsupported (oid, cert_extension_to_cstruct (version, cmd))) ]

4
src/vmm_asn.ml
View file

@ -308,10 +308,10 @@ let block_cmd =
let version =
let f data = match data with
| 2 -> `AV2
| 3 -> `AV3
| _ -> Asn.S.error (`Parse "unknown version number")
and g = function
| `AV2 -> 2
| `AV3 -> 3
in
Asn.S.map f g Asn.S.int

6
src/vmm_commands.ml
View file

@ -3,16 +3,16 @@
(* the wire protocol *)
open Vmm_core
type version = [ `AV2 ]
type version = [ `AV3 ]
let pp_version ppf v =
Fmt.int ppf
(match v with
| `AV2 -> 2)
| `AV3 -> 3)
let version_eq a b =
match a, b with
| `AV2, `AV2 -> true
| `AV3, `AV3 -> true
| _ -> false
type console_cmd = [

2
src/vmm_commands.mli
View file

@ -3,7 +3,7 @@
open Vmm_core
(** The type of versions of the grammar defined below. *)
type version = [ `AV2 ]
type version = [ `AV3 ]
(** [version_eq a b] is true if [a] and [b] are equal. *)
val version_eq : version -> version -> bool