ETag and Last Modified

[Lucu.git] / Network / HTTP / Lucu / RequestReader.hs

diff --git a/Network/HTTP/Lucu/RequestReader.hs b/Network/HTTP/Lucu/RequestReader.hs
index f2f3976f3a5c9adcb8345500018f9ef44447282a..42eda0e7cb8efcec541eed78f19ba4f1d557b241 100644 (file)
--- a/Network/HTTP/Lucu/RequestReader.hs
+++ b/Network/HTTP/Lucu/RequestReader.hs
@@ -114,9 +114,6 @@ requestReader cnf tree h host tQueue
       acceptRequestForExistentResource :: Interaction -> ByteString -> ResourceDef -> STM (IO ())
       acceptRequestForExistentResource itr input rsrcDef
           = do requestHasBody <- readItr itr itrRequestHasBody id
-               writeItr itr itrState (if requestHasBody
-                                      then ExaminingHeader
-                                      else DecidingHeader)
                enqueue itr
                return $ do runResource rsrcDef itr
                            if requestHasBody then