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
open! Base
open! Import

type t = V1 [@@deriving enumerate]

let to_int = function
  | V1 -> 1
;;

let of_int_exn loc = function
  | 1 -> V1
  | n ->
    Location.raise_errorf
      ~loc
      !"Unknown ppx_streamable version: %d. The supported versions are: {%s}"
      n
      (all |> List.map ~f:(Fn.compose Int.to_string to_int) |> String.concat ~sep:", ")
;;

let module_name = function
  | V1 -> "V1"
;;