diff options
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 0b00524bd5..27f2b6fc5c 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -801,6 +801,9 @@ let state_of_id ~doc id = | EmptyState | ParsingState _ -> `Valid None with VCS.Expired -> `Expired +let () = + Stateid.set_is_valid (fun ~doc id -> state_of_id ~doc id <> `Expired) + (****** A cache: fills in the nodes of the VCS document with their value ******) module State : sig |