Source file `Version.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(**************************************************************************)
(*                                                                        *)
(*                              OCamlFormat                               *)
(*                                                                        *)
(*            Copyright (c) Facebook, Inc. and its affiliates.            *)
(*                                                                        *)
(*      This source code is licensed under the MIT license found in       *)
(*      the LICENSE file in the root directory of this source tree.       *)
(*                                                                        *)
(**************************************************************************)

type t = {major: int; minor: int; patch: int option}

let make ~major ~minor ~patch = {major; minor; patch}

let to_string = function
  | {major; minor; patch= None} -> Format.sprintf "%i.%i" major minor
  | {major; minor; patch= Some patch} ->
      Format.sprintf "%i.%i.%i" major minor patch

let pp fs v = Format.fprintf fs "%s" (to_string v)

let current =
  let open Build_info.V1 in
  version () |> Option.value_map ~f:Version.to_string ~default:"unknown"