🐛 Fix svg assets uploading.

This commit is contained in:
Andrey Antukh 2021-01-13 09:49:10 +01:00 committed by Alonso Torres
parent f06264ea0a
commit 678fe3d63e
4 changed files with 57 additions and 16 deletions

View file

@ -116,9 +116,13 @@
{:status 200
:body (process-request cfg body)})
(defn parse
[data]
(with-open [istream (IOUtils/toInputStream data "UTF-8")]
(xml/parse istream)))
(defn process-request
[{:keys [svgc] :as cfg} body]
(let [data (slurp body)
data (svgc data)]
(with-open [istream (IOUtils/toInputStream data "UTF-8")]
(xml/parse istream))))
(parse data)))