observe-ring.clj

gistfile1.clj

(ns foo.core
  (:require [clojure.core.match :refer (match)]
            [compojure.core :refer :all]))

(defn metrics [req resp]
  (match [req resp]
    [{:uri "/login"} {:status 401}] 
    (println "Failed login")

    [{} {:status 500}] 
    (println "Application error")

    :else (println "Nothing to report!")))

(defn wrap-observe [handler observable-fn]
  (fn [req]
    (let [resp (handler req)]
      (future (observable-fn req resp))
        resp)))

(def app 
  (routes (GET "/" [] "OK")))
 
(wrap-observe app metrics)