Source file `uniform_array.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open! Import
include Base.Uniform_array

include
  Binable.Of_binable1_without_uuid [@alert "-legacy"]
    (Array)
    (struct
      type nonrec 'a t = 'a t

      let to_binable = to_array
      let of_binable = of_array
    end)