From f26074170df60ea5216a46037970512fb704d2dd Mon Sep 17 00:00:00 2001 From: Rohit Mishra Date: Fri, 10 Nov 2023 15:31:34 +0530 Subject: [PATCH] OF-625 increse stripes to 4 --- src/Database/Redis/Connection.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Database/Redis/Connection.hs b/src/Database/Redis/Connection.hs index 95a2cfcb..940d727d 100644 --- a/src/Database/Redis/Connection.hs +++ b/src/Database/Redis/Connection.hs @@ -157,7 +157,7 @@ createConnection ConnInfo{..} = do -- until the first call to the server. connect :: ConnectInfo -> IO Connection connect cInfo@ConnInfo{..} = NonClusteredConnection <$> - createPool (createConnection cInfo) PP.disconnect 1 connectMaxIdleTime connectMaxConnections + createPool (createConnection cInfo) PP.disconnect 4 connectMaxIdleTime connectMaxConnections -- |Constructs a 'Connection' pool to a Redis server designated by the -- given 'ConnectInfo', then tests if the server is actually there. @@ -224,7 +224,7 @@ connectCluster bootstrapConnInfo = do let isConnectionReadOnly = connectReadOnly bootstrapConnInfo clusterConnection = Cluster.connect withAuth infos shardMapVar timeoutOptUs isConnectionReadOnly refreshShardMapWithNodeConn - pool <- createPool (clusterConnect isConnectionReadOnly clusterConnection) Cluster.disconnect 1 (connectMaxIdleTime bootstrapConnInfo) (connectMaxConnections bootstrapConnInfo) + pool <- createPool (clusterConnect isConnectionReadOnly clusterConnection) Cluster.disconnect 4 (connectMaxIdleTime bootstrapConnInfo) (connectMaxConnections bootstrapConnInfo) return $ ClusteredConnection shardMapVar pool where withAuth host port timeout = do