changed everything like a maniac

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

diff --git a/Network/HTTP/Lucu/Postprocess.hs b/Network/HTTP/Lucu/Postprocess.hs
index 4950a0b97006e29b00446a9a6cfbf8ee90ea1781..732c47a809002e39e08e522f2b5681e508b9143b 100644 (file)
--- 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 ()