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