(wrap-reload handler)
(wrap-reload handler options)
Reload namespaces of modified files before the request is passed to the
supplied handler.
Accepts the following options:
:dirs - A list of directories that contain the source files.
Defaults to ["src"].
:reload-compile-errors? - If true, keep attempting to reload namespaces
that have compile errors. Defaults to true.
Source
(defn wrap-reload
"Reload namespaces of modified files before the request is passed to the
supplied handler.
Accepts the following options:
:dirs - A list of directories that contain the source files.
Defaults to [\"src\"].
:reload-compile-errors? - If true, keep attempting to reload namespaces
that have compile errors. Defaults to true."
([handler]
(wrap-reload handler {}))
([handler options]
(let [reload! (reloader (:dirs options ["src"])
(:reload-compile-errors? options true))]
(fn
([request]
(reload!)
(handler request))
([request respond raise]
(reload!)
(handler request respond raise))))))