Permalink
Browse files

Limit number of stored cert chains

  • Loading branch information...
1 parent cfcbefe commit ac2255da034f3b8456d9249769359210704f5332 @snoyberg snoyberg committed Jan 18, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Network/HTTP/Conduit/Manager.hs
@@ -188,7 +188,7 @@ reap mapRef certCacheRef =
flushStaleCerts' (host', inner) =
case mapMaybe flushStaleCerts'' $ Map.toList inner of
[] -> Nothing
- pairs -> Just (host', Map.fromList pairs)
+ pairs -> Just (host', Map.fromList $ take 10 pairs)
flushStaleCerts'' (certs, expires)
| expires > now = Just (certs, expires)
| otherwise = Nothing

0 comments on commit ac2255d

Please sign in to comment.