Source file `ppx_deriving_hardcaml_runtime.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open Base

module Array = struct
  include Array

  let for_ length ~f =
    for i = 0 to length - 1 do
      f i
    done
  ;;
end

module Int = Int
module Interface = Interface
module List = List

let concat = String.concat