blob: 973cffcad711c6292c52900383f1aa5ad685b1eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(ns lccl.fwk.middlewares
(:require [ring.middleware.reload :as reload]))
; https://bogoyavlensky.com/blog/auto-reloading-ring/
(defn reloading-ring-handler
"Reload ring handler on each request."
[f]
(let [reload! (#'reload/reloader ["src"] true)]
(fn
([request]
(reload!)
((f) request))
([request respond raise]
(reload!)
((f) request respond raise)))))
|
