Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

empty connnection pool in case connection has become invalid

  • Loading branch information...
commit e8b6d914250042212dfd769fa08bd5bf4a58ae6e 1 parent 0d49dca
@JPMoresmau authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 Network/Browser.hs
View
4 Network/Browser.hs
@@ -809,7 +809,9 @@ request' nullVal rqState rq = do
case e_rsp of
Left v
| (reqRetries rqState < fromMaybe defaultMaxErrorRetries mbMx) &&
- (v == ErrorReset || v == ErrorClosed) ->
+ (v == ErrorReset || v == ErrorClosed) -> do
+ --empty connnection pool in case connection has become invalid
+ modify (\b -> b { bsConnectionPool=[] })
request' nullVal rqState{reqRetries=succ (reqRetries rqState)} rq
| otherwise ->
return (Left v)
Please sign in to comment.
Something went wrong with that request. Please try again.