summaryrefslogtreecommitdiff
path: root/clojure/src/lccl/app.clj
diff options
context:
space:
mode:
authorArnaud Bailly <arnaud.bailly@iohk.io>2025-01-25 10:45:41 +0100
committerArnaud Bailly <arnaud.bailly@iohk.io>2025-01-25 10:45:41 +0100
commit7752d73216578d5961751b5d0535088d384b4aa6 (patch)
tree786e46fe1276e93ade0a48398cd4c9ac13081707 /clojure/src/lccl/app.clj
parentd6f68e919db51d366c8ca3c1509bea12aa81d692 (diff)
downloadlambda-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.clj30
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)))
-
-