3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-04 12:07:18 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Minor changes on http middleware.

Browse source
This commit is contained in:
Andrey Antukh 2020-12-21 13:39:39 +01:00 • committed by Alonso Torres
parent f12ade3b67
commit 84e95ab4c2
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
backend/src/app/http/middleware.clj
View file

@ -26,6 +26,7 @@
(letfn [(parse-transit [body] (letfn [(parse-transit [body]
(let [reader (t/reader body)] (let [reader (t/reader body)]
(t/read! reader))) (t/read! reader)))
(parse-json [body] (parse-json [body]
(let [reader (io/reader body)] (let [reader (io/reader body)]
(json/read reader))) (json/read reader)))
@ -38,10 +39,12 @@
(catch Exception e (catch Exception e
(let [type (if (:debug cfg/config) :json-verbose :json) (let [type (if (:debug cfg/config) :json-verbose :json)
data {:type :parse data {:type :parse
:hint "Unable to parse request body" :hint "unable to parse request body"
:message (ex-message e)}] :message (ex-message e)}]
{:status 400 {:status 400
:headers {"content-type" "application/transit+json"}
:body (t/encode-str data {:type type})}))))] :body (t/encode-str data {:type type})}))))]
(fn [{:keys [headers body request-method] :as request}] (fn [{:keys [headers body request-method] :as request}]
(let [ctype (get headers "content-type")] (let [ctype (get headers "content-type")]
(handler (handler