From 9d5bb80a895e137cf3dde2ee14e1edeaaecbac82 Mon Sep 17 00:00:00 2001
From: Coin Okay <cbeok@protonmail.com>
Date: Wed, 22 Apr 2020 21:33:24 -0500
Subject: in case anybody posts raw text

---
 decoders.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'decoders.lisp')

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)
-- 
cgit v1.2.3