           (convert-entries [[k v]] [(name k) (str v)])]
     (.setPlaceholders flyway (as-> {} $
                                  (add-schema $)
-                                 (into $ (map convert-entries placeholders))))
-    )
+                                 (into $ (map convert-entries placeholders)))))
   flyway)
 
 (defn- mk-flyway-callback

          (.setDataSource flyway datasource)
          (.setDataSource flyway url user password))
        flyway)
    (log/fatal "Neither datasource nor url, user, and password given!")))

(defn- set-migrations-loc
  [flyway migration-loc]


(defn migrate
  [dialect db-spec options]
  (let [fw (create-flyway dialect db-spec options)]
    (when (has-pending-migrations? fw)
      (do
        (.migrate fw)
        db-spec))))

(defn clean
  [dialect db-spec options]
  (let [fw (create-flyway dialect db-spec options)]
    (do
      (.clean fw)
      db-spec)))
