refactor: Remove Protolude.Conv from AppState

This commit is contained in:
monacoremo
2021-11-12 20:25:22 +01:00
committed by Remo
parent f228cccbae
commit 47b6f04a66
+2 -3
View File
@@ -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