diff options
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))) - - |
