mirror of
https://github.com/metosin/reitit.git
synced 2026-01-12 09:59:51 +00:00
14 lines
393 B
Clojure
14 lines
393 B
Clojure
(ns example.schema
|
|
(:require [reitit.coercion.schema :as schema-coercion]
|
|
[example.server :as server]))
|
|
|
|
(defn handler [{{{:keys [x y]} :query} :parameters}]
|
|
{:status 200
|
|
:body {:result (+ x y)
|
|
:source :schema}})
|
|
|
|
(def app
|
|
(-> #'handler
|
|
(server/wrap-coercion
|
|
{:parameters {:query {:x Long, :y Long}}
|
|
:coercion schema-coercion/coercion})))
|