Check whether connection succeeded and set encoding in connect

test/SpecHook.hs

@@ -8,7 +8,6 @@ import Test.Hspec (Spec, SpecWith, around)
 import Text.Printf (printf)
 
 import qualified Data.Text as Text
-import qualified Data.Text.Encoding as Encoding
 
 import qualified Database.PostgreSQL.Opium as Opium
 
@@ -20,7 +19,7 @@ setupConnection = do
   Just dbPort <- lookupEnv "DB_PORT"
 
   let dsn = printf "host=localhost user=%s password=%s dbname=%s port=%s" dbUser dbPass dbName dbPort
-  conn <- Opium.connect $ Encoding.encodeUtf8 $ Text.pack dsn
+  Right conn <- Opium.connect $ Text.pack dsn
 
   Right _ <- Opium.execute_ "DROP TABLE IF EXISTS person" conn
   Right _ <- Opium.execute_ "CREATE TABLE person (name TEXT NOT NULL, age INT NOT NULL, score DOUBLE PRECISION NOT NULL, motto TEXT)" conn