Potential correction: #274

2025-01-06 05:25:53 +03:00 · 2014-08-06 18:08:50 +03:00 · 2014-08-06 18:08:50 +03:00 · e3b8aaefeb
commit e3b8aaefeb
parent cbd66de684
2 changed files with 2 additions and 2 deletions
--- a/warp/Network/Wai/Handler/Warp/Request.hs
+++ b/warp/Network/Wai/Handler/Warp/Request.hs
@ -203,7 +203,7 @@ push src (THStatus len lines prepend) bs'
    -- update the length, and continue processing.
    push' Nothing = do
        bst <- readSource' src
-        when (S.null bs) $ throwIO IncompleteHeaders
+        when (S.null bst) $ throwIO IncompleteHeaders
        push src status bst
      where
        len' = len + bsLen
--- a/warp/warp.cabal
+++ b/warp/warp.cabal
@ -1,5 +1,5 @@
 Name:                warp
-Version:             3.0.0.6
+Version:             3.0.0.7
 Synopsis:            A fast, light-weight web server for WAI applications.
 License:             MIT
 License-file:        LICENSE