X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPreprocess.hs;h=802338c46dddbf7df1fb9fbe06c25620f5aa6075;hb=34b0ad7f2ffc5e7ca67fa3468d01c5551edc8a8b;hp=74d66531f1d0a80c24a5b66734ca6267f1a821db;hpb=30fcb38426696db8b80d322196cc594431e30407;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index 74d6653..802338c 100644
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -78,11 +78,10 @@ preprocess itr
                 mapM_ (preprocessHeader itr) (reqHeaders req)
     where
       setStatus itr status
-          = writeItr itr itrResponse $ Just (Response {
-                                               resVersion = HttpVersion 1 1
-                                             , resStatus  = status
-                                             , resHeaders = []
-                                             })
+          = updateItr itr itrResponse
+            $ \ res -> res {
+                         resStatus = status
+                       }
 
       preprocessHeader itr (name, value)
           = case map toLower name of