Module Hooks


module Hooks: sig .. end


type message =
| Before_hygiene
| After_hygiene
| Before_options
| After_options
| Before_rules
| After_rules
val hooks : (message -> unit) Pervasives.ref
val setup_hooks : (message -> unit) -> unit
val call_hook : message -> unit