From 4feb05a02e5887d4dc75c35d0ba3044923b32aed Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Thu, 7 Mar 2024 05:37:27 +0100
Subject: [PATCH] chore(foundation): tweak UpsertUserData fields

---
 src/Foundation/Types.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/Foundation/Types.hs b/src/Foundation/Types.hs
index 0cb2f2234..f76076f33 100644
--- a/src/Foundation/Types.hs
+++ b/src/Foundation/Types.hs
@@ -8,7 +8,7 @@ module Foundation.Types
   , _upsertUserSource, _upsertUserIdent
   , UpsertUserData(..)
   , _UpsertUserDataAzure, _UpsertUserDataLdap
-  , _upsertUserAzureConf, _upsertUserAzureData, _upsertUserLdapConf, _upsertUserLdapData
+  , _upsertUserAzureTenantId, _upsertUserAzureData, _upsertUserLdapHost, _upsertUserLdapData
   ) where
 
 import Import.NoFoundation
@@ -16,6 +16,7 @@ import Import.NoFoundation
 import qualified Ldap.Client as Ldap
 
 
+-- TODO: rename?
 data UpsertUserMode
   = UpsertUserLogin      { upsertUserSource :: Text } -- TODO: use type synonym?
   | UpsertUserLoginDummy { upsertUserIdent  :: UserIdent }
@@ -30,12 +31,12 @@ makePrisms ''UpsertUserMode
 
 data UpsertUserData
   = UpsertUserDataAzure
-    { upsertUserAzureConf :: AzureConf
-    , upsertUserAzureData :: [(Text, [ByteString])]  -- TODO: use type synonym?
+    { upsertUserAzureTenantId :: UUID
+    , upsertUserAzureData     :: [(Text, [ByteString])]  -- TODO: use type synonym?
     }
   | UpsertUserDataLdap
-    { upsertUserLdapConf  :: LdapConf
-    , upsertUserLdapData  :: Ldap.AttrList []
+    { upsertUserLdapHost      :: Text
+    , upsertUserLdapData      :: Ldap.AttrList []
     }
   deriving (Show)