   []
   (reset! clean-status ""))
 
+;; FIXME: per-db gc stats?
+;; FIXME: db name in all gc logging?
+
 (defn-validated clean-up
   "Cleans up the resources specified by request, or everything if
   request is empty?."


          ;; Pretty much this helper just knows our job-pool and gc-interval
          (let [job-pool (mk-pool)
                gc-interval-millis (to-millis (:gc-interval database))
                schema-check-interval (:schema-check-interval database)
                write-cfgs (conf/reduce-section
                            (fn [result name settings] (conj result settings))

  (close-write-dbs (get-in context [:shared-globals :scf-write-dbs]))
  (when-let [ds (get-in context [:shared-globals :scf-read-db :datasource])]
    (.close ^Closeable ds))

  (when-let [command-loader (:command-loader context)]
    (future-cancel command-loader))
  context)
