Module Test.Basic_test.Fields.Direct

module Direct: sig .. end

val iter : Test.Basic_test.t ->
       test_id:(([< `Read | `Set_and_create ], Test.Basic_test.t, Id.t)
                Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> Id.t -> 'a) ->
       name:(([< `Read | `Set_and_create ], Test.Basic_test.t, string)
             Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> string -> 'b) ->
       key:(([< `Read | `Set_and_create ], Test.Basic_test.t, int)
            Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> int -> 'c) ->
       arg:(([< `Read | `Set_and_create ], Test.Basic_test.t, int option)
            Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> int option -> 'd) ->
       group_key:(([< `Read | `Set_and_create ], Test.Basic_test.t, int option)
                  Fieldslib.Field.t_with_perm ->
                  Test.Basic_test.t -> int option -> 'e) ->
       f:(([< `Read | `Set_and_create ], Test.Basic_test.t, unit -> unit)
          Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> (unit -> unit) -> 'f) ->
       'f

val fold : Test.Basic_test.t ->
       init:'a ->
       test_id:('a ->
                ([< `Read | `Set_and_create ], Test.Basic_test.t, Id.t)
                Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> Id.t -> 'b) ->
       name:('b ->
             ([< `Read | `Set_and_create ], Test.Basic_test.t, string)
             Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> string -> 'c) ->
       key:('c ->
            ([< `Read | `Set_and_create ], Test.Basic_test.t, int)
            Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> int -> 'd) ->
       arg:('d ->
            ([< `Read | `Set_and_create ], Test.Basic_test.t, int option)
            Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> int option -> 'e) ->
       group_key:('e ->
                  ([< `Read | `Set_and_create ], Test.Basic_test.t, int option)
                  Fieldslib.Field.t_with_perm ->
                  Test.Basic_test.t -> int option -> 'f) ->
       f:('f ->
          ([< `Read | `Set_and_create ], Test.Basic_test.t, unit -> unit)
          Fieldslib.Field.t_with_perm -> Test.Basic_test.t -> (unit -> unit) -> 'g) ->
       'g