From c2d3231e24a8229c60247169ff67db468e16ff95 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Mon, 22 Nov 2010 23:50:48 +0100
Subject: fix post content-type check

* tekuti/request.scm (request-form-data): Fix content-type check.
---
 tekuti/request.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tekuti/request.scm b/tekuti/request.scm
index ad49508..d3d040e 100644
--- a/tekuti/request.scm
+++ b/tekuti/request.scm
@@ -71,7 +71,7 @@
       '()
       (let ((content-type (request-content-type request)))
         (cond
-         ((equal? content-type '("application" "x-www-form-urlencoded"))
+         ((equal? content-type '("application/x-www-form-urlencoded"))
           (parse-www-form-urlencoded body))
          (else
           (error "bad content-type" content-type))))))
-- 
cgit v1.2.3-54-g00ecf