refactor: fix inaccurate variable name (#2662)

2023-02-14 17:09:48 +01:00
parent a1e2fe308f
commit 95d71281d6
1 changed files with 2 additions and 2 deletions
@@ -97,9 +97,9 @@ destroy = destroyPool

 initPool :: AppConfig -> IO SQL.Pool
 initPool AppConfig{..} =
-  SQL.acquire configDbPoolSize timeoutMilliseconds $ toUtf8 configDbUri
+  SQL.acquire configDbPoolSize timeoutMicroseconds $ toUtf8 configDbUri
  where
-    timeoutMilliseconds = (* oneSecond) <$> configDbPoolAcquisitionTimeout
+    timeoutMicroseconds = (* oneSecond) <$> configDbPoolAcquisitionTimeout
    oneSecond = 1000000

 -- | Run an action with a database connection.