X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPostprocess.hs;h=732c47a809002e39e08e522f2b5681e508b9143b;hb=ca338174155913a969808d7b20193973394e474e;hp=4950a0b97006e29b00446a9a6cfbf8ee90ea1781;hpb=2bb7a0baa35dadb5d36d3f9fa98bd242baabc6d1;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Postprocess.hs b/Network/HTTP/Lucu/Postprocess.hs
index 4950a0b..732c47a 100644
--- a/Network/HTTP/Lucu/Postprocess.hs
+++ b/Network/HTTP/Lucu/Postprocess.hs
@@ -94,8 +94,7 @@ postprocess (Interaction {..})
              ⊕ printStatusCode sc
              ⊕ A.toAsciiBuilder " but no Location header."
 
-         reqM ← readTVar itrRequest
-         case reqM of
+         case itrRequest of
            Just req → postprocessWithRequest sc req
            Nothing  → return ()