From 85b00ffcca2590d737309da0d71f7f5061aff12d Mon Sep 17 00:00:00 2001
From: Coin Okay <cbeok@protonmail.com>
Date: Wed, 22 Apr 2020 20:33:42 -0500
Subject: created decoders package, moved json decoder

---
 lazybones.asd  |  3 ++-
 lazybones.lisp | 11 -----------
 package.lisp   |  5 +++++
 3 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/lazybones.asd b/lazybones.asd
index fb68736..d792750 100644
--- a/lazybones.asd
+++ b/lazybones.asd
@@ -8,4 +8,5 @@
   :serial t
   :depends-on (#:clack #:jonathan  #:alexandria #:split-sequence)
   :components ((:file "package")
-               (:file "lazybones")))
+               (:file "lazybones")
+               (:file "decoders")))
diff --git a/lazybones.lisp b/lazybones.lisp
index 9bd3014..e762f03 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -43,19 +43,8 @@ definition."
     (push (cons mimetype decoder)
           *decoders*)))
 
-(defun read-body-to-string (stream content-length)
-  "Reads CONTENT-LENGTH characters from STREAM and returns a string."
-  (let ((string (make-string content-length)))
-    (read-sequence string stream)
-    string))
 
 
-(defun decode-json-body (stream len)
-  "Reads LEN characters from stream and decodes them as JSON, returning a PLIST"
-  (jonathan:parse (read-body-to-string stream len)))
-
-(add-decoder "application/json" #'decode-json-body)
-
 
 (defun decode-body (stream content-type content-length)
   "Decodes the body according to the Content-Type header.
diff --git a/package.lisp b/package.lisp
index b46a3d6..4a15d03 100644
--- a/package.lisp
+++ b/package.lisp
@@ -22,3 +22,8 @@
    #:start
    #:stop
    ))
+
+(defpackage #:lazybones.decoders
+  (:use #:cl)
+  (:import-from #:lazybones
+                #:add-decoder))
-- 
cgit v1.2.3