From 7752d73216578d5961751b5d0535088d384b4aa6 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Sat, 25 Jan 2025 10:45:41 +0100 Subject: Move λ-calcul workshop code to subdirectory MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lambda-calcul/clojure/src/lccl/fwk/middlewares.clj | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 lambda-calcul/clojure/src/lccl/fwk/middlewares.clj (limited to 'lambda-calcul/clojure/src/lccl/fwk') diff --git a/lambda-calcul/clojure/src/lccl/fwk/middlewares.clj b/lambda-calcul/clojure/src/lccl/fwk/middlewares.clj new file mode 100644 index 0000000..973cffc --- /dev/null +++ b/lambda-calcul/clojure/src/lccl/fwk/middlewares.clj @@ -0,0 +1,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))))) \ No newline at end of file -- cgit v1.2.3