        (into known-migrations)
        (difference applied-migrations)))
 
-(defn migrate!
-  "Migrates database to the latest schema version. Does nothing if
-  database is already at the latest schema version.  Requires a
-  connection pool because some operations may require an indepdendent
-  database connection.
-
-  This function will return true iff any migrations were run."
+(defn run-migrations
   [db-connection-pool]
   (let [applied-migration-versions (applied-migrations)
         latest-applied-migration (last applied-migration-versions)

      (do
        (log/info (trs "There are no pending migrations"))
        false))))

;; SPECIAL INDEX HANDLING


                                (->> pending
                                     (map (fn [[version migration]]
                                            (let [t0 (now)]
                                              (log/info (trs "Applying database migration version {0}" version))
                                              (let [result (migration)]
                                                (record-migration! version)
                                                result)
                                              (log/info (trs "Applied database migration version {0} in {1} ms"
                                                             version (in-millis (interval t0 (now))))))))
                                     (filter map?)
                                     (map ::vacuum-analyze)
                                     (apply set/union small-tables)
