making cons more robust again.

yesodweb · Jul 3, 2017 · a11beb4 · a11beb4
1 parent f9f4f7b
commit a11beb4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tls-session-manager/Network/TLS/SessionManager.hs b/tls-session-manager/Network/TLS/SessionManager.hs
@@ -74,7 +74,7 @@ newSessionManager conf = do
 
 cons :: Int -> Item -> DB -> DB
 cons lim (k,t,v,Add) db
-  | lim == 0            = Q.empty
+  | lim <= 0            = Q.empty
   | Q.size db == lim    = case Q.minView db of
       Nothing          -> assert False $ Q.insert k t v Q.empty
       Just (_,_,_,db') -> Q.insert k t v db'