Module `States`

States of the system

type state

val freeze : marshallable:bool -> state
val unfreeze : state -> unit
val summary_of_state : state -> Summary.frozen
val lib_of_state : state -> Lib.frozen
val replace_summary : state -> Summary.frozen -> state
val replace_lib : state -> Lib.frozen -> state

Rollback

val with_state_protection : ('a -> 'b) -> 'a -> 'b