             (not (.isDone @download-supervisor))))))
 
 (defn- update-domains
-  "TODO: Always cleanup after update?"
   [download-supervisor domains-info edb-config rw-lock]
   (let [{max-kbs :max-online-download-rate-kb-s
          local-dir :local-dir} edb-config

                                  domains-info
                                  :state download-state)
           (log-message "Finished updating all domains from remote.")
           (log-message "Removing all old versions of updated domains!")
           (try (cleanup-domains! (keys domains-info) local-dir)
                (catch Throwable t
                  (log-error t "Error when cleaning old versions")))
           (catch Throwable t
             (log-error t "Error when syncing data"))))))


        (try (purge-unused-domains! domain-seq local-dir)
             (load-cached-domains! edb-config rw-lock domains-info)
             (load-and-sync-status! edb-config rw-lock domains-info)
             (log-message "Finished loading all updated domains from remote.")
             (catch Throwable t
               (log-error t "Error when syncing data.")
