   archive spool dir"
   [production]
   (let [archive-path (container-path production)]
-    (if (fs/exists? archive-path)
-      (log/error "Container-path %s already exists" archive-path)
-      (fs/copy-dir (path/recorded-path production) (container-path production)))))
+    (if-not (fs/exists? archive-path)
+      (fs/copy-dir (path/recorded-path production) (container-path production))
+      (log/error "Container-path %s already exists" archive-path))))
 
 (defn copy-distribution-master-files
   "Copy a production to the archive spool dir"

3. place this iso in the magic spool directory
4. generate the rdf as above
5. add an entry to a table in a database. The `sektion` should be `cdimage`

FIXME: Most likely this should be split off into a separate lib that
replaces all of agadir at a later point in time. For instructions on
how to do this see
https://github.com/technomancy/leiningen/blob/stable/doc/DEPLOY.md"
  (:require [clojure.java.jdbc :as jdbc]
            [clojure.java.io :refer [file]]
            [clojure.tools.logging :as log]

(ns mdr2.archive
  "Main entry point into the archive

For archiving we need to interface with an existing legacy system
named agadir. It doesn't do very much in very complicated ways.
Probably best to replace it at some point. In the mean time we try to
stay away from it and not to change too much. From reading the source
