Source file `mp_protocol.ml`

1
2
3
4
5
6
7
8
9
10
11
type protocol_version =
    Protocol_version_40
  | Protocol_version_41

let protocol_version_to_string v = 
  let version = 
    match v with
    | Protocol_version_40 -> "4.0"
    | Protocol_version_41 -> "4.1"
  in
  version