making `cons` more robust again.
commit4c045d6f658efb460f2530ee9d3d6e4ab3383e83
authorKazu Yamamoto <kazu@iij.ad.jp>
dateMon 3 Jul 2017, 16:47 (9 years ago)
parent0a45408
tls-session-manager/Network/TLS/SessionManager.hs+1−1
@@ -74,7 +74,7 @@ newSessionManager conf = do
7474
7575cons :: Int -> Item -> DB -> DB
7676cons lim (k,t,v,Add) db
77− | lim == 0 = Q.empty
77+ | lim <= 0 = Q.empty
7878 | Q.size db == lim = case Q.minView db of
7979 Nothing -> assert False $ Q.insert k t v Q.empty
8080 Just (_,_,_,db') -> Q.insert k t v db'