created decoders package, moved json decoder

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))