@thomasdeutsch:

(let [old-db @conn]
  ...open ui...
  (if (user wants to discard changes)
    (reset! conn old-db)))