~nytpu/lasso

cddf6111e880ee920391c4a43b4f773d922d6fd1 — nytpu 14 days ago 5419f4d
gemini: fix outdated READ-ALL arguments
1 files changed, 2 insertions(+), 2 deletions(-)

M gemini.lisp
M gemini.lisp => gemini.lisp +2 -2
@@ 208,11 208,11 @@
    (if (and (string= "text" (mimeparse::media-type mime-type))
             charset)
        (-> stream
          (read-all '(unsigned-byte 8))
          (read-all)
          (babel:octets-to-string :encoding charset))
        (error 'malformed-response :reason "Non-textual body or body in unrecognized charset" :resp nil)
        ; return the binary body if it's non-textual or in an unknown charset
        #|(read-all stream '(unsigned-byte 8))|#)))
        #|(read-all stream)|#)))

(defun-contract gemini-request (uri &key host port)
  ((:pre (typecheck uri (or quri:uri string))