Permalink
Browse files

Merge branch 'issue26'

  • Loading branch information...
2 parents 38754f3 + 292c0cc commit 05ab0cb50fe905529a615af4453c0285a4d6c5ce @hsenag hsenag committed May 11, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 Network/Browser.hs
View
@@ -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)

0 comments on commit 05ab0cb

Please sign in to comment.