let
register_event node name fn arg =
node >>> set name (wrap_event (
fun
_
->
ignore (fn arg)))