Get the SQL for a Liquibase changeset

changelog_to_sql.clj

(defn changeset->sql [^Liquibase liquibase, ^String changelog-file, ^String author, ^String id]
  (let [database              (.getDatabase liquibase)
        sql-generator-factory (liquibase.sqlgenerator.SqlGeneratorFactory/getInstance)]
    (for [change    (-> liquibase
                        .getDatabaseChangeLog
                        (.getChangeSet changelog-file author id)
                        .getChanges)
          statement (.generateStatements change database)
          sql       (.generateSql sql-generator-factory statement database)]
      (.toSql sql))))