diff options
Diffstat (limited to 'lib/protocols/Journal.ml')
| -rw-r--r-- | lib/protocols/Journal.ml | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/lib/protocols/Journal.ml b/lib/protocols/Journal.ml deleted file mode 100644 index 392eb5a..0000000 --- a/lib/protocols/Journal.ml +++ /dev/null @@ -1,25 +0,0 @@ -type change = {name: string; expected: Handle.t option; replacement: Handle.t option} -type commit = {number: int; snapshot: Handle.t; changed: string list} -type proposal = {previous: commit; proposed: commit} -type guard = proposal -> (unit, Concepts.Condition.condition) result -type observer = commit -> unit - -class type implementation = object - method commit : change list -> (commit option, Concepts.Condition.condition) result - method head : commit - method history : commit list - method guard : string -> guard option -> unit - method observe : string -> observer option -> unit -end - -type Handle.protocol += Journal of implementation -type t = implementation - -let make impl = Journal (impl :> implementation) -let from handle = Handle.into handle (function Journal impl -> Some impl | _ -> None) -let require = Handle.require from -let commit i changes = Handle.invoke i (fun o -> o#commit changes) -let head i = Handle.invoke i (fun o -> o#head) -let history i = Handle.invoke i (fun o -> o#history) -let guard i name g = Handle.invoke i (fun o -> o#guard name g) -let observe i name f = Handle.invoke i (fun o -> o#observe name f) |