Module `WithSimulation.Op`Source

Sourcetype 'a t = cursor -> (cursor * 'a, Plebeia.Error.t) result

Sourceval fail : error -> 'a -> ('b, Plebeia.Error.t) result

Sourceval get_raw_cursor : 'a -> 'a

Sourceval get_real_cursor : F.cursor -> Plebeia.Cursor.t

Sourceval get_model_tree : S.cursor -> S.model_tree

Sourceval context : (F.cursor * 'a) -> Plebeia.Context.t

Sourceval raw_cursor : 'a -> ('a * 'a, 'b) result

val path : 
  (F.cursor * S.raw_cursor) ->
  ((F.cursor * S.raw_cursor) * F.Path.t, Plebeia.Error.t) result

Source

val chdir_parent : 
  (F.cursor * S.raw_cursor) ->
  ((F.cursor * S.raw_cursor) * unit, Plebeia.Error.t) result

Source

val chdir_root : 
  (F.cursor * S.raw_cursor) ->
  ((F.cursor * S.raw_cursor) * unit, Plebeia.Error.t) result

Source

val chdir : 
  ?dig:bool ->
  F.Path.t ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.cursor) * unit, Plebeia.Error.t) result

Source

val get : 
  F.Path.t ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.cursor) * ((F.cursor * S.cursor) * (F.view * S.view)),
    Plebeia.Error.t)
    result

Source

val cat : 
  F.Path.t ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.cursor) * Plebeia.Value.t, Plebeia.Error.t) result

Source

val write : 
  S.Map.key list ->
  Plebeia.Value.t ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.raw_cursor) * unit, Plebeia.Error.t) result

Source

val set : 
  S.Map.key list ->
  (F.cursor * S.raw_cursor) ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.cursor) * unit, Plebeia.Error.t) result

Source

val copy : 
  F.Path.t ->
  S.Map.key list ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.cursor) * unit, Plebeia.Error.t) result

Source

val rm : 
  ?recursive:bool ->
  ?ignore_error:bool ->
  F.Path.t ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.cursor) * bool, Plebeia.Error.t) result

Source

val rmdir : 
  ?ignore_error:bool ->
  F.Path.t ->
  (F.cursor * S.cursor) ->
  ((F.cursor * S.cursor) * bool, Plebeia.Error.t) result

Sourcemodule Monad : sig ... end

Source

val do_then : 
  (cursor -> 'b) ->
  'a t ->
  cursor ->
  (cursor * 'a, Plebeia.Error.t) result

Sourceval run : 'a -> ('a -> 'b) -> 'b

package plebeia

Module WithSimulation.OpSource

Module `WithSimulation.Op`Source