From e4afb8c074c14a06f9c738e0d2d9380e19b42583 Mon Sep 17 00:00:00 2001 From: pho Date: Mon, 7 Jan 2008 17:37:04 +0900 Subject: [PATCH] bugfix darcs-hash:20080107083704-62b54-ef1dd3822b001eaacff35b45b9a2fbd6fecae565.gz --- Network/HTTP/Lucu/Preprocess.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 -- 2.40.0