git.iko.soy/typeable/wai
on master help sign in
Distinguish ConnectionClosedByPeer from IncompleteHeaders (#52)
commitae804174e64fa56465f466d48e0efa8213d91488 authorMichael Snoyman <michael@snoyman.com> dateMon 9 Jul 2012, 13:04 (14 years ago) parent4e70347
1 file changed+1−1
compare with master
unifiedsplit
warp/Network/Wai/Handler/Warp.hs+1−1
warp/Network/Wai/Handler/Warp.hs+1−1
@@ -729,7 +729,7 @@ data THStatus = THStatus
729729
730730takeHeaders :: Sink ByteString (ResourceT IO) [ByteString]
731731takeHeaders =
732− await >>= maybe close (push (THStatus 0 id id))
732+ await >>= maybe (throwIO ConnectionClosedByPeer) (push (THStatus 0 id id))
733733 where
734734 close :: Sink ByteString (ResourceT IO) a
735735 close = throwIO IncompleteHeaders