diff options
| author | Arnaud Bailly <arnaud.bailly@iohk.io> | 2025-01-25 10:45:41 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud.bailly@iohk.io> | 2025-01-25 10:45:41 +0100 |
| commit | 7752d73216578d5961751b5d0535088d384b4aa6 (patch) | |
| tree | 786e46fe1276e93ade0a48398cd4c9ac13081707 /clojure/src/lccl/app.clj | |
| parent | d6f68e919db51d366c8ca3c1509bea12aa81d692 (diff) | |
| download | lambda-nantes-7752d73216578d5961751b5d0535088d384b4aa6.tar.gz | |
Move λ-calcul workshop code to subdirectory
Diffstat (limited to 'clojure/src/lccl/app.clj')
| -rw-r--r-- | clojure/src/lccl/app.clj | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/clojure/src/lccl/app.clj b/clojure/src/lccl/app.clj deleted file mode 100644 index 522d8bf..0000000 --- a/clojure/src/lccl/app.clj +++ /dev/null @@ -1,30 +0,0 @@ -(ns lccl.app - (:require [reitit.ring :as ring-reitit] - [reitit.coercion.malli] - [reitit.ring.malli] - [reitit.dev.pretty :as pretty] - [reitit.ring.middleware.muuntaja :as muuntaja] - [muuntaja.core :as m])) - -(defn eval - [request] - (let [sexpr (slurp (:body request))] - (println "Demande d'évaluation de l'expression :" sexpr) - {:status 200, :body sexpr})) - -(defn api-handler - [] - (ring-reitit/ring-handler - (ring-reitit/router - [["/eval" {:post eval}]] - - {:exception pretty/exception - :data { - :muuntaja m/instance - :middleware [muuntaja/format-response-middleware]}}))) - -(defn app-handler - [] - (ring-reitit/routes (api-handler))) - - |
