chore(deps): update hasql to 1.9.3.1

Michael and I arrived at mostly the same things independently. Took some
of his, some of mine.

Co-authored-by: Michal Kleczek <michal@kleczek.org>

test/observability/Main.hs

@@ -8,7 +8,8 @@ import Data.Function (id)
 
 import           PostgREST.App             (postgrest)
 import qualified PostgREST.AppState        as AppState
-import           PostgREST.Config          (AppConfig (..))
+import           PostgREST.Config          (AppConfig (..),
+                                            toConnectionSettings)
 import           PostgREST.Config.Database (queryPgVersion)
 import qualified PostgREST.Logger          as Logger
 import qualified PostgREST.Metrics         as Metrics
@@ -38,12 +39,12 @@ main = do
     , P.acquisitionTimeout 10
     , P.agingTimeout 60
     , P.idlenessTimeout 60
-    , P.staticConnectionSettings (toUtf8 $ configDbUri testCfg)
+    , P.staticConnectionSettings $ toConnectionSettings identity testCfg
     -- make sure metrics are updated and pool observations published to poolChan
     , P.observationHandler $ (writeChan poolChan <> Metrics.observationMetrics metricsState) . HasqlPoolObs
     ]
 
-  actualPgVersion <- either (panic . show) id <$> P.use pool (queryPgVersion False)
+  actualPgVersion <- either (panic . show) id <$> P.use pool queryPgVersion
 
   -- cached schema cache so most tests run fast
   baseSchemaCache <- loadSCache pool testCfg

test/spec/Main.hs

@@ -9,7 +9,8 @@ import Data.Function (id)
 import Test.Hspec
 
 import PostgREST.App             (postgrest)
-import PostgREST.Config          (AppConfig (..))
+import PostgREST.Config          (AppConfig (..),
+                                  toConnectionSettings)
 import PostgREST.Config.Database (queryPgVersion)
 import PostgREST.SchemaCache     (querySchemaCache)
 import Protolude                 hiding (toList, toS)
@@ -78,10 +79,10 @@ main = do
     , P.acquisitionTimeout 10
     , P.agingTimeout 60
     , P.idlenessTimeout 60
-    , P.staticConnectionSettings (toUtf8 $ configDbUri testCfg)
+    , P.staticConnectionSettings $ toConnectionSettings identity testCfg
     ]
 
-  actualPgVersion <- either (panic . show) id <$> P.use pool (queryPgVersion False)
+  actualPgVersion <- either (panic . show) id <$> P.use pool queryPgVersion
 
   -- cached schema cache so most tests run fast
   baseSchemaCache <- loadSCache pool testCfg