function | removed v0.0-1503 | added v0.0-927 | Edit |
(read-request rdr)
(defn read-request [rdr]
(let [line (.readLine rdr)]
(cond (.startsWith line "POST") (read-post line rdr)
(.startsWith line "GET") (read-get line rdr)
:else {:method :unknown :content line})))