haskell_connect_db_with_options.hs

haskell_connect_db_with_options.hs

import           Database.PostgreSQL.Simple
import           System.Environment
import  Database.PostgreSQL.Simple.Options

getDBConn :: IO Connection
getDBConn = do
  -- get db info
  hostName <- getEnv "DB_HOST"
  dbName <- getEnv "DB_NAME"
  userName <- getEnv "DB_USER"
  dbPassword <- getEnv "DB_PASSWORD"
  let
    connOpts :: Options
    connOpts = mempty
      { host   = pure hostName
      , user       = pure userName
      , dbname     = pure dbName
      , password   = pure dbPassword
      , port     = pure 5432
      }
  connectPostgreSQL $ toConnectionString connOpts