clj-melody-04.clj

(ns backend.system.datasource
  (:require ...)
  (:import (net.bull.javamelody JdbcWrapper)
           (java.io Closeable)))

(defn- create-instance
  []
  (let [hikari-ds (ds/make-datasource (:db config))
        java-melody-wrapped-ds (.createDataSourceProxy JdbcWrapper/SINGLETON hikari-ds)]
    java-melody-wrapped-ds))

(defstate datasource
          :start (create-instance)
          :stop (try
                  (.close ^Closeable datasource)
                  (catch Throwable t
                    (log/warn t "Error stopping datasource."))))