module SlackBuilder.Config
    ( Settings(..)
    , settingsCodec
    ) where

import Data.Text (Text)
import Toml ((.=))
import qualified Toml

newtype Settings = Settings
    { ghToken :: Text
    } deriving (Eq, Show)

settingsCodec :: Toml.TomlCodec Settings
settingsCodec = Settings
    <$> Toml.text "gh_token" .= ghToken