diff options
-rw-r--r-- | decoders.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/decoders.lisp b/decoders.lisp index e4dcc8c..fecb83a 100644 --- a/decoders.lisp +++ b/decoders.lisp @@ -8,6 +8,15 @@ string)) +;;; PLAIN TEXT DECODER + +(defun decode-plain-text (stream content-type content-length) + (declare (ignore content-type)) + (read-body-to-string stream content-length)) + +(add-decoder "text/plain" #'decode-plain-text) + + ;;; JSON DECODER (defun decode-json-body (stream content-type content-length) |