refactor: Remove Protolude.Conv from AppState
This commit is contained in:
@@ -39,8 +39,7 @@ import PostgREST.Config (AppConfig (..))
|
|||||||
import PostgREST.Config.PgVersion (PgVersion (..), minimumPgVersion)
|
import PostgREST.Config.PgVersion (PgVersion (..), minimumPgVersion)
|
||||||
import PostgREST.DbStructure (DbStructure)
|
import PostgREST.DbStructure (DbStructure)
|
||||||
|
|
||||||
import Protolude hiding (toS)
|
import Protolude
|
||||||
import Protolude.Conv (toS)
|
|
||||||
|
|
||||||
|
|
||||||
data AppState = AppState
|
data AppState = AppState
|
||||||
@@ -87,7 +86,7 @@ initWithPool newPool conf =
|
|||||||
|
|
||||||
initPool :: AppConfig -> IO SQL.Pool
|
initPool :: AppConfig -> IO SQL.Pool
|
||||||
initPool AppConfig{..} =
|
initPool AppConfig{..} =
|
||||||
SQL.acquire (configDbPoolSize, configDbPoolTimeout, toS configDbUri)
|
SQL.acquire (configDbPoolSize, configDbPoolTimeout, toUtf8 configDbUri)
|
||||||
|
|
||||||
getPool :: AppState -> SQL.Pool
|
getPool :: AppState -> SQL.Pool
|
||||||
getPool = statePool
|
getPool = statePool
|
||||||
|
|||||||
Reference in New Issue
Block a user