refactor: fix inaccurate variable name (#2662)
This commit is contained in:
@@ -97,9 +97,9 @@ destroy = destroyPool
|
|||||||
|
|
||||||
initPool :: AppConfig -> IO SQL.Pool
|
initPool :: AppConfig -> IO SQL.Pool
|
||||||
initPool AppConfig{..} =
|
initPool AppConfig{..} =
|
||||||
SQL.acquire configDbPoolSize timeoutMilliseconds $ toUtf8 configDbUri
|
SQL.acquire configDbPoolSize timeoutMicroseconds $ toUtf8 configDbUri
|
||||||
where
|
where
|
||||||
timeoutMilliseconds = (* oneSecond) <$> configDbPoolAcquisitionTimeout
|
timeoutMicroseconds = (* oneSecond) <$> configDbPoolAcquisitionTimeout
|
||||||
oneSecond = 1000000
|
oneSecond = 1000000
|
||||||
|
|
||||||
-- | Run an action with a database connection.
|
-- | Run an action with a database connection.
|
||||||
|
|||||||
Reference in New Issue
Block a user