17 lines
328 B
Haskell
17 lines
328 B
Haskell
|
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
|