Config.hs

{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE NoFieldSelectors #-}

module WikiMusic.Model.Config
  ( AppConfig (..),
    PostgreSQLConfig (..),
    RedisConfig (..),
    ServantConfig (..),
    CorsConfig (..),
    -- CookieConfig (..),
    MailConfig (..),
    WebFrontendConfig (..),
    appConfigCodec,
  )
where

import Optics
import Relude
import Toml

data PostgreSQLConfig = PostgreSQLConfig
  { user :: Text,
    passwordFile :: Text,
    password :: Maybe Text,
    port :: Int,
    name :: Text,
    poolSize :: Int,
    host :: Text,
    runMigrations :: Bool
  }
  deriving (Generic, Eq, Show)

postgreSQLConfigCodec :: TomlCodec PostgreSQLConfig
postgreSQLConfigCodec =
  PostgreSQLConfig
    <$> Toml.text "user" .= (^. #user)
    <*> Toml.text "password-file" .= (^. #passwordFile)
    <*> Toml.dioptional (Toml.text "password") .= (^. #password)
    <*> Toml.int "port" .= (^. #port)
    <*> Toml.text "name" .= (^. #name)
    <*> Toml.int "pool-size" .= (^. #poolSize)
    <*> Toml.text "host" .= (^. #host)
    <*> Toml.bool "run-migrations" .= (^. #runMigrations)

data RedisConfig = RedisConfig
  { port :: Int,
    passwordFile :: Text,
    password :: Maybe Text
  }
  deriving (Generic, Eq, Show)

redisConfigCodec :: TomlCodec RedisConfig
redisConfigCodec =
  RedisConfig
    <$> Toml.int "port" .= (^. #port)
    <*> Toml.text "password-file" .= (^. #passwordFile)
    <*> Toml.dioptional (Toml.text "password") .= (^. #password)

data ServantConfig = ServantConfig
  { port :: Int,
    host :: Text
  }
  deriving (Generic, Eq, Show)

servantConfigCodec :: TomlCodec ServantConfig
servantConfigCodec =
  ServantConfig
    <$> Toml.int "port" .= (^. #port)
    <*> Toml.text "host" .= (^. #host)

data CorsConfig = CorsConfig
  { origins :: [Text],
    methods :: [Text],
    requestHeaders :: [Text]
  }
  deriving (Generic, Eq, Show)

corsConfigCodec :: TomlCodec CorsConfig
corsConfigCodec =
  CorsConfig
    <$> Toml.arrayOf Toml._Text "origins" .= (^. #origins)
    <*> Toml.arrayOf Toml._Text "methods" .= (^. #methods)
    <*> Toml.arrayOf Toml._Text "request-headers" .= (^. #requestHeaders)

-- data CookieConfig = CookieConfig
--   { maxAge :: Int,
--     path :: Text,
--     domain :: Text,
--     sessionCookieName :: Text,
--     secure :: Text,
--     sameSite :: Text
--   }
--   deriving (Generic, Eq, Show)

-- cookieConfigCodec :: TomlCodec CookieConfig
-- cookieConfigCodec =
--   CookieConfig
--     <$> Toml.int "max-age" .= (^. #maxAge)
--     <*> Toml.text "path" .= (^. #path)
--     <*> Toml.text "domain" .= (^. #domain)
--     <*> Toml.text "session-cookie-name" .= (^. #sessionCookieName)
--     <*> Toml.text "secure" .= (^. #secure)
--     <*> Toml.text "same-site" .= (^. #sameSite)

data MailConfig = MailConfig
  { sendTimeoutSeconds :: Int,
    host :: Text,
    user :: Text,
    passwordFile :: Text,
    password :: Maybe Text,
    senderName :: Text,
    senderMail :: Text
  }
  deriving (Generic, Eq, Show)

mailConfigCodec :: TomlCodec MailConfig
mailConfigCodec =
  MailConfig
    <$> Toml.int "send-timeout-seconds" .= (^. #sendTimeoutSeconds)
    <*> Toml.text "host" .= (^. #host)
    <*> Toml.text "user" .= (^. #user)
    <*> Toml.text "password-file" .= (^. #passwordFile)
    <*> Toml.dioptional (Toml.text "password") .= (^. #password)
    <*> Toml.text "sender-name" .= (^. #senderName)
    <*> Toml.text "sender-mail" .= (^. #senderMail)

newtype WebFrontendConfig = WebFrontendConfig
  { baseUrl :: Text
  }
  deriving (Generic, Eq, Show)

webFrontendConfigCodec :: TomlCodec WebFrontendConfig
webFrontendConfigCodec =
  WebFrontendConfig
    <$> Toml.text "base-url" .= (^. #baseUrl)

newtype DevConfig = DevConfig
  { reportedVersion :: Text
  }
  deriving (Generic, Eq, Show)

devCodec :: TomlCodec DevConfig
devCodec = DevConfig <$> Toml.text "reported-version" .= (^. #reportedVersion)

data AppConfig = AppConfig
  { servant :: ServantConfig,
    postgresql :: PostgreSQLConfig,
    redis :: RedisConfig,
    cors :: CorsConfig,
    -- cookie :: CookieConfig,
    mail :: MailConfig,
    webFrontend :: WebFrontendConfig,
    dev :: DevConfig
  }
  deriving (Generic, Eq, Show)

appConfigCodec :: TomlCodec AppConfig
appConfigCodec =
  AppConfig
    <$> Toml.table servantConfigCodec "servant" .= (^. #servant)
    <*> Toml.table postgreSQLConfigCodec "postgresql" .= (^. #postgresql)
    <*> Toml.table redisConfigCodec "redis" .= (^. #redis)
    <*> Toml.table corsConfigCodec "cors" .= (^. #cors)
    -- <*> Toml.table cookieConfigCodec "cookie" .= (^. #cookie)
    <*> Toml.table mailConfigCodec "mail" .= (^. #mail)
    <*> Toml.table webFrontendConfigCodec "web-frontend" .= (^. #webFrontend)
    <*> Toml.table devCodec "dev" .= (^. #dev)

makeFieldLabelsNoPrefix ''AppConfig
makeFieldLabelsNoPrefix ''PostgreSQLConfig
makeFieldLabelsNoPrefix ''RedisConfig
makeFieldLabelsNoPrefix ''ServantConfig
makeFieldLabelsNoPrefix ''CorsConfig

-- makeFieldLabelsNoPrefix ''CookieConfig
makeFieldLabelsNoPrefix ''MailConfig
makeFieldLabelsNoPrefix ''WebFrontendConfig
makeFieldLabelsNoPrefix ''DevConfig