diff options
| author | LLLL Colonq <llll@colonq> | 2024-01-12 14:54:22 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-01-12 14:54:32 -0500 |
| commit | 094d3e0e1370f2f8b3619ba6cea8b33ac83dceed (patch) | |
| tree | 01ae4f2706d32ef1433c60d60dcabb1e479be463 /fig-frontend/src/Fig/Frontend/Utils.hs | |
| parent | 45980c6910a7fe16ec41b1663b79cebc6e33350d (diff) | |
Update frontend
Diffstat (limited to 'fig-frontend/src/Fig/Frontend/Utils.hs')
| -rw-r--r-- | fig-frontend/src/Fig/Frontend/Utils.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fig-frontend/src/Fig/Frontend/Utils.hs b/fig-frontend/src/Fig/Frontend/Utils.hs index 1ba1d5f..20234e7 100644 --- a/fig-frontend/src/Fig/Frontend/Utils.hs +++ b/fig-frontend/src/Fig/Frontend/Utils.hs @@ -22,6 +22,7 @@ data Config = Config { port :: Int , assetPath :: FilePath , clientId :: Text + , authToken :: Text } deriving (Show, Eq, Ord) configCodec :: Toml.TomlCodec Config @@ -29,6 +30,7 @@ configCodec = do port <- Toml.int "port" Toml..= (\a -> a.port) assetPath <- Toml.string "asset_path" Toml..= (\a -> a.assetPath) clientId <- Toml.text "client_id" Toml..= (\a -> a.clientId) + authToken <- Toml.text "auth_token" Toml..= (\a -> a.authToken) pure $ Config{..} loadConfig :: FilePath -> IO Config |