Fix JSON middleware to recognize Content-Type that specifies a charse…

…t (e.g. "application/json; charset=UTF-8")
fukamachi · Oct 19, 2013 · eee4482 · eee4482
1 parent 0609fbf
commit eee4482
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -6,3 +6,6 @@
 *.x86f
 *.fas
 *.lib
+
+# editor backup/temp files
+*~
diff --git a/src/core/middleware/json.lisp b/src/core/middleware/json.lisp
@@ -23,7 +23,10 @@
   ())
 
 (defmethod call ((this <clack-middleware-json>) env)
-  (when (string-equal (getf env :content-type) "application/json")
+  (when (= (search "application/json"
+		   (getf env :content-type)
+		   :test #'equalp)
+	   0)
     (setf (getf env :body-parameters)
           (list :json (yason:parse (ensure-character-input-stream
                                     (getf env :raw-body))))))