From: pho 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