in case anybody posts raw text

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)