From: pho <pho@cielonegro.org>
Date: Mon, 7 Jan 2008 08:37:04 +0000 (+0900)
Subject: bugfix
X-Git-Tag: RELEASE-0_2_1~14
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=e4afb8c074c14a06f9c738e0d2d9380e19b42583;p=Lucu.git

bugfix

darcs-hash:20080107083704-62b54-ef1dd3822b001eaacff35b45b9a2fbd6fecae565.gz
---

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index 7f386a7..6191273 100644
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -69,11 +69,12 @@ preprocess itr
                 completeAuthority req
 
                 case reqMethod req of
-                  GET  -> return ()
-                  HEAD -> writeItr itr itrWillDiscardBody True
-                  POST -> writeItr itr itrRequestHasBody True
-                  PUT  -> writeItr itr itrRequestHasBody True
-                  _    -> setStatus NotImplemented
+                  GET    -> return ()
+                  HEAD   -> writeItr itr itrWillDiscardBody True
+                  POST   -> writeItr itr itrRequestHasBody True
+                  PUT    -> writeItr itr itrRequestHasBody True
+                  DELETE -> return ()
+                  _      -> setStatus NotImplemented
                   
                 preprocessHeader req
     where