package plebeia
Module WithSimulation.Op_lwtSource
include sig ... end
Source
val fold :
'a ->
F.FsError.path ->
(('a ->
F.Path.t ->
F.cursor ->
([ `Continue | `Exit | `Up ] * 'a, Plebeia.Error.t) result Lwt.t)
* ('a ->
S.Path.t ->
S.cursor ->
([ `Continue | `Exit | `Up ] * 'a, Plebeia.Error.t) result Lwt.t)) ->
'a op_lwtSource
val fold' :
?depth:[< `Eq of int | `Ge of int | `Gt of int | `Le of int | `Lt of int ] ->
'a ->
F.FsError.path ->
(('a ->
F.Path.t ->
F.cursor ->
('a, Plebeia.Error.t) result Lwt.t)
* (S.Path.t ->
S.cursor ->
'a ->
('a, Plebeia.Error.t) result Lwt.t)) ->
('a * 'a) op_lwt