diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-04-17 10:38:00 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-04-17 11:31:05 +0200 |
commit | 13f75f645e2da13ffc3d2ee6c2e42b2324e11136 (patch) | |
tree | c99afec631dd38ac74698b53d1360bd55f848c35 /stm | |
parent | ed5ec093c216bef6629657f69d7f94256e3ec009 (diff) |
[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 |