gistfile1.txt

(defn- file-name
  [^java.io.File file]
  (.getName file))

(defn- is-sql?
  [^java.io.File file]
  (-> file file-name (s/ends-with? ".sql")))

(defn- to-migration
  [^java.io.File file]
  {:name (file-name file)
   :body (slurp file)})

(defn- read-migrations
  [^String res]
  (if-let [mig-dir (-> res io/resource io/file)]
    (->> mig-dir
         file-seq
         (filter is-sql?)
         (sort-by file-name)
         (map to-migration))
    (throw (Exception.
            (format "Cannot read migrations from: %s" res)))))