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