sig
  type message =
      Before_hygiene
    | After_hygiene
    | Before_options
    | After_options
    | Before_rules
    | After_rules
  val setup_hooks : (Hooks.message -> unit) -> unit
  val call_hook : Hooks.message -> unit
end