try things

Author: blaggacao

metadata-store-postgres/src/Cardano/Metadata/Store/Postgres/Config.hs

@@ -30,4 +30,4 @@ parseOpts = Opts
 
 pgConnectionString :: Opts -> ConnectionString
 pgConnectionString (Opts { optDbName = dbName, optDbUser = dbUser, optDbPass = dbPass, optDbHost = dbHost, optDbPort = dbPort }) =
-  BC.pack $ "host=" <> dbHost <> " dbname=" <> dbName <> " user=" <> dbUser " password=" <> dbPass " port=" <> dbPort
+  BC.pack $ "host=" <> dbHost <> " dbname=" <> dbName <> " user=" <> dbUser " password=" <> dbPass " port=" <> (show dbPort)

metadata-sync/src/Cardano/Metadata/Sync/Config.hs

@@ -35,7 +35,7 @@ data Opts = Opts
     { optDbName              :: Text
     , optDbUser              :: Text
     , optDbPass              :: Text
-    , optDbHost              :: String
+    , optDbHost              :: Text
     , optDbPort              :: Warp.Port
     , optDbMetadataTableName :: Text
     , optDbConnections       :: Int
@@ -67,7 +67,7 @@ opts =
 
 pgConnectionString :: Opts -> BC.ByteString
 pgConnectionString (Opts { optDbName = dbName, optDbUser = dbUser, optDbPass = dbPass, optDbHost = dbHost, optDbPort = dbPort }) =
-  TE.encodeUtf8 $ "host=" <> T.pack dbHost <> " dbname=" <> dbName <> " user=" <> dbUser " password=" <> dbPass " port=" <> dbPort
+  TE.encodeUtf8 $ "host=" <> T.pack dbHost <> " dbname=" <> dbName <> " user=" <> dbUser " password=" <> dbPass " port=" <> (show dbPort)
 
 mkConnectionPool
   :: BC.ByteString