retry after deletion (#118)

scalar-labs · Dec 12, 2023 · 2f774a4 · 2f774a4
1 parent 0cc0e2f
commit 2f774a4
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/scalardb/src/scalardb/core.clj b/scalardb/src/scalardb/core.clj
@@ -31,14 +31,21 @@
       (loop [retries RETRIES]
         (when (zero? retries)
           (throw (ex-info "Failed to set up tables" {:schema schema})))
-        (let [result (try
+        (let [schema (cheshire/generate-string schema)
+              result (try
                        (SchemaLoader/load properties
-                                          (cheshire/generate-string schema)
+                                          schema
                                           options
                                           true)
                        :success
                        (catch Exception e
                          (warn (.getMessage e))
+                         (try
+                           (SchemaLoader/unload properties
+                                                schema
+                                                true)
+                           (catch Exception e
+                             (warn (.getMessage e))))
                          :fail))]
           (when (= result :fail)
             (recur (dec retries))))))))