zgo-backend/src/Config.hs

{-# LANGUAGE OverloadedStrings #-}

module Config where

import qualified Data.ByteString as BS
import Data.Configurator
import Data.SecureMem
import qualified Data.Text as T
import Network.Socket (PortNumber)

data Config =
  Config
    { c_dbHost :: String
    , c_dbName :: T.Text
    , c_dbUser :: T.Text
    , c_dbPassword :: T.Text
    , c_passkey :: SecureMem
    , c_nodeAddress :: T.Text
    , c_nodeUser :: BS.ByteString
    , c_nodePwd :: BS.ByteString
    , c_port :: Int
    , c_useTls :: Bool
    , c_certificate :: String
    , c_key :: String
    , c_smtpHost :: String
    , c_smtpPort :: Integer
    , c_smtpUser :: String
    , c_smtpPwd :: String
    , c_confirmations :: Integer
    }
  deriving (Eq, Show)

loadZGoConfig :: Worth FilePath -> IO Config
loadZGoConfig path = do
  config <- load [path]
  dbHost <- require config "dbHost"
  dbName <- require config "dbName"
  dbUser <- require config "dbUser"
  dbPassword <- require config "dbPassword"
  nodeAddress <- require config "nodeAddress"
  nodeUser <- require config "nodeUser"
  nodePwd <- require config "nodePassword"
  passkey <- secureMemFromByteString <$> require config "passkey"
  port <- require config "port"
  useTls <- require config "tls"
  cert <- require config "certificate"
  key <- require config "key"
  mailHost <- require config "smtpHost"
  mailPort <- require config "smtpPort"
  mailUser <- require config "smtpUser"
  mailPwd <- require config "smtpPwd"
  conf <- require config "confirmations"
  return $
    Config
      dbHost
      dbName
      dbUser
      dbPassword
      passkey
      nodeAddress
      nodeUser
      nodePwd
      port
      useTls
      cert
      key
      mailHost
      mailPort
      mailUser
      mailPwd
      conf