diff options
| author | LLLL Colonq <llll@colonq> | 2025-12-17 05:01:05 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-12-17 05:01:05 -0500 |
| commit | efdc8dc21571c3737662a9f49761961fe1068ead (patch) | |
| tree | 8427505d85eeae4dd0e5090ad1c1705c40e79a7e /fig-web/src/Fig/Web/Utils.hs | |
| parent | fe4d5cfedaaa0aebde3d3ab3f1fbfff7e40d66de (diff) | |
Delete cards from Redis
Diffstat (limited to 'fig-web/src/Fig/Web/Utils.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Utils.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Utils.hs b/fig-web/src/Fig/Web/Utils.hs index 9337b12..59781cd 100644 --- a/fig-web/src/Fig/Web/Utils.hs +++ b/fig-web/src/Fig/Web/Utils.hs @@ -54,6 +54,7 @@ instance Exception FigWebException data Config = Config { port :: !Int , assetPath :: !FilePath + , dataPath :: !FilePath , clientId :: !Text , authToken :: !Text , dbHost :: !Text @@ -67,6 +68,7 @@ configCodec :: Toml.TomlCodec Config configCodec = do port <- Toml.int "port" Toml..= (\a -> a.port) assetPath <- Toml.string "asset_path" Toml..= (\a -> a.assetPath) + dataPath <- Toml.string "data_path" Toml..= (\a -> a.dataPath) clientId <- Toml.text "client_id" Toml..= (\a -> a.clientId) authToken <- Toml.text "auth_token" Toml..= (\a -> a.authToken) dbHost <- Toml.text "db_host" Toml..= (\a -> a.dbHost) |