                       (map #(import-metadata-values % db))))))
 (defn seed []
   (let [url models/db-uri
+        _ (d/delete-database url)
+        _ (d/create-database url)
         conn (d/connect url)]
     (d/transact conn (concat
                        (generate-parts d/tempid (schema/dbparts))
                        (generate-schema d/tempid (schema/dbschema))))
     (d/transact conn (seed-corpora))
     (d/transact conn (seed-metadata-categories))
-    (d/transact conn (seed-metadata-values (d/db conn)))))+    (d/transact conn (seed-metadata-values (d/db conn)))))

            [cglossa.models.schema :as schema]))

(defn- find-tsv-files [dir]
  (->> (io/file dir)
       file-seq
       (map #(.getPath %))

(ns cglossa.models.seeds
  (:require [datomic.api :as d]
            [datomic-schema.schema :refer [schema fields generate-parts generate-schema]]
            [clojure.java.io :as io]
            [cglossa.data-import.core :refer [import-corpora
                                              import-metadata-categories
