(ns myapp.component.session-cleaner
  (:require [com.stuartsierra.component :as component]
            [jdbc-ring-session.cleaner :refer [start-cleaner stop-cleaner]]))

(defrecord SessionCleaner [db]
  component/Lifecycle
  (start [component]
    (if-not (:cleaner component)
      (assoc component :cleaner (start-cleaner (:spec db)))
      component))
  (stop [component]
    (when (:cleaner component)
        (stop-cleaner (:cleaner component)))
    (dissoc component :cleaner)))

(defn session-cleaner-component []
  (map->SessionCleaner {}))