function | removed v0.0-1503 | added v0.0-927 | Edit |
(read-post line rdr)
(defn read-post [line rdr]
(let [[_ path _] (str/split line #" ")
headers (parse-headers (read-headers rdr))
content-length (Integer/parseInt (:content-length headers))
content (char-array content-length)]
(io! (.read rdr content 0 content-length)
{:method :post
:path path
:headers headers
:content (String. content)})))