Merge pull request #2797 from IntersectMBO/staging

chore: adjust connection pooling

Author: MSzalowski

govtool/backend/app/Main.hs

@@ -70,9 +70,9 @@ createOptimizedConnectionPool :: BS.ByteString -> IO (Pool Connection)
 createOptimizedConnectionPool connectionString = createPool
   (connectPostgreSQL connectionString) -- Connection creation function
   close                                -- Connection destruction function
-  1                                    -- Number of stripes (sub-pools)
-  60                                   -- Idle timeout (seconds)
-  50                                   -- Maximum number of connections per stripe
+  1                                   -- Idle timeout (seconds)
+  2                                    -- Number of stripes (sub-pools)
+  60                                   -- Maximum number of connections per stripe
 
 proxyAPI :: Proxy (VVAApi :<|> SwaggerAPI)
 proxyAPI = Proxy

govtool/backend/src/VVA/AdaHolder.hs

@@ -60,4 +60,9 @@ getStakeKeyVotingPower stakeKey = withPool $ \conn -> do
         Text.putStrLn ("couldn't fetch voting power for stake key: " <> stakeKey)
         return 0
       Right [(votingPower,_)] -> return $ floor votingPower
-      _ -> error ("multiple voting power entries for stake key: " <> unpack stakeKey)
+      Right [] -> do
+        Text.putStrLn ("No voting power found for stake key: " <> stakeKey)
+        return 0
+      Right _ -> do
+        Text.putStrLn ("Unexpected result for stake key: " <> stakeKey)
+        return 0