package incremental

  1. Overview
  2. Docs
package incremental
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file observer.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open Core
open! Import

type 'a t = 'a Internal_observer.t ref [@@deriving sexp_of]

let invariant invariant_a t = Internal_observer.invariant invariant_a !t
let observing t = Internal_observer.observing !t
let use_is_allowed t = Internal_observer.use_is_allowed !t
let value_exn t = Internal_observer.value_exn !t
let incr_state t = Internal_observer.incr_state !t

let on_update_exn t on_update_handler =
  Internal_observer.on_update_exn !t on_update_handler
;;