From a3991ddb8f61955c5c48ac99b6eed14d5e9f986a Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Thu, 14 Nov 2024 21:20:28 -0500
Subject: Account creation in LDAP using Twitch

---
 fig-web/src/Fig/Web/Utils.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'fig-web/src/Fig/Web/Utils.hs')

diff --git a/fig-web/src/Fig/Web/Utils.hs b/fig-web/src/Fig/Web/Utils.hs
index b6c385a..004ba5a 100644
--- a/fig-web/src/Fig/Web/Utils.hs
+++ b/fig-web/src/Fig/Web/Utils.hs
@@ -25,17 +25,27 @@ instance Exception FigWebException
 
 data Config = Config
   { port :: !Int
+  , assetPath :: !FilePath
   , clientId :: !Text
   , authToken :: !Text
   , dbHost :: !Text
+  , lldapCli :: !FilePath
+  , lldapHost :: !Text
+  , lldapUser :: !Text
+  , lldapPassword :: !Text
   } deriving (Show, Eq, Ord)
 
 configCodec :: Toml.TomlCodec Config
 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)
   dbHost <- Toml.text "db_host" Toml..= (\a -> a.dbHost)
+  lldapCli <- Toml.string "lldap_cli" Toml..= (\a -> a.lldapCli)
+  lldapHost <- Toml.text "lldap_host" Toml..= (\a -> a.lldapHost)
+  lldapUser <- Toml.text "lldap_user" Toml..= (\a -> a.lldapUser)
+  lldapPassword <- Toml.text "lldap_password" Toml..= (\a -> a.lldapPassword)
   pure $ Config{..}
 
 loadConfig :: FilePath -> IO Config
-- 
cgit v1.2.3