diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-04-18 16:47:48 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-04-18 16:47:48 +0200 |
| commit | 236182069946d603d90709277c3c9f9f0b747720 (patch) | |
| tree | 081f1c3cedb062b60aa6020dda94a1c2ea76f94b /stm | |
| parent | 8956ab2ff2c687f99c473bbd1849fbce36863fdc (diff) | |
| parent | 13f75f645e2da13ffc3d2ee6c2e42b2324e11136 (diff) | |
Merge PR #7280: [stm] expose restore/backup since ~doc is (still) dummy
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 5 | ||||
| -rw-r--r-- | stm/stm.mli | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 326b6d1c2..8830464c6 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -3207,4 +3207,9 @@ let forward_feedback_hook = Hooks.forward_feedback_hook let unreachable_state_hook = Hooks.unreachable_state_hook let () = Hook.set Obligations.stm_get_fix_exn (fun () -> !State.fix_exn_ref) +type document = VCS.vcs +let backup () = VCS.backup () +let restore d = VCS.restore d + + (* vim:set foldmethod=marker: *) diff --git a/stm/stm.mli b/stm/stm.mli index 7a720aa72..35ce77a38 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -283,3 +283,7 @@ val get_all_proof_names : doc:doc -> Id.t list (** Enable STM debugging *) val stm_debug : bool ref + +type document +val backup : unit -> document +val restore : document -> unit |