let mount_http endpoint f =
      let () = dbg "S.mount"
      in install_handler ~fb: default_http_fallback ~endpoint ~what: f