   (:require [clojure.tools.logging :as log]
             [clojure.java.jdbc :as jdbc]
             [sql-file.script :as script]))
-
-(defn- fail [ & args ]
-  (throw (Exception. (apply str args))))
 
 (defn- locate-schema-script [ conn basename ]
   (or (some identity

the specified schema is available within that database."
  (let [ conn (conn-assoc-schema conn schema) ]
    (log/info "Opening sql-file:" conn)
    (conn-ensure-schemas conn)))

;; HSQLDB Specific


        (migrate-schema conn req-schema-name cur-schema-version req-schema-version)

        :else
        (fail "Cannot downgrade schema " req-schema-name " from version " cur-schema-version " to " req-schema-version))
      conn))


;; Public Entry points

