(with-exception-handler
      (lambda (exception)
        (cleanup-temporary-ssh-key)
        (raise-exception exception))
    (lambda ()
      (let ((server (or server
                        (hetzner-machine-provision machine))))
        (deploy-machine (hetzner-machine-delegate machine server))))
    #:unwind? #t)