Potential correction: #274
commite3b8aaefeba13b3cfb4e0b58a955e9f5b5f33026
authorMichael Snoyman <michael@snoyman.com>
dateWed 6 Aug 2014, 18:08 (12 years ago)
parentcbd66de
warp/Network/Wai/Handler/Warp/Request.hs+1−1
@@ -203,7 +203,7 @@ push src (THStatus len lines prepend) bs'
203203 -- update the length, and continue processing.
204204 push' Nothing = do
205205 bst <- readSource' src
206− when (S.null bs) $ throwIO IncompleteHeaders
206+ when (S.null bst) $ throwIO IncompleteHeaders
207207 push src status bst
208208 where
209209 len' = len + bsLen
warp/warp.cabal+1−1
@@ -1,5 +1,5 @@
11Name: warp
2−Version: 3.0.0.6
2+Version: 3.0.0.7
33Synopsis: A fast, light-weight web server for WAI applications.
44License: MIT
55License-file: LICENSE