           (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


(defn migrate
  [dialect db-spec options]
  (if-let [fw (create-flyway dialect db-spec options)]
    (when (has-pending-migrations? fw)
      (do
        (.migrate fw)
        db-spec))
    (log/fatalf "Could not create flyway!")))

(defn clean
  [dialect db-spec options]
  (if-let [fw (create-flyway dialect db-spec options)]
    (do
      (.clean fw)
      db-spec)
    (log/fatalf "Could not create flyway!")))

  [dialect {:keys [datasource url user password]} {:keys [schema
                                                          placeholders]
                                                   :as options}]
  (-> (Flyway.)
    (set-datasource datasource url user password)
    (set-schema schema)
    (set-placeholders placeholders schema)
