From 848890d3cd63fe1fc41580e645c07beb04026070 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Fri, 16 Feb 2024 02:28:15 +0100
Subject: [PATCH] chore(auth): add more data to user upsert mode

---
 src/Foundation/Types.hs | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/src/Foundation/Types.hs b/src/Foundation/Types.hs
index 96e858dfe..0a2a4a97a 100644
--- a/src/Foundation/Types.hs
+++ b/src/Foundation/Types.hs
@@ -5,18 +5,32 @@
 module Foundation.Types
   ( UpsertUserMode(..)
   , _UpsertUserLoginLdap, _UpsertUserLoginAzure, _UpsertUserLoginDummy, _UpsertUserLoginOther, _UpsertUserSync, _UpsertUserGuessUser
-  , _upsertUserIdent
+  , _upsertUserLdapSource, _upsertUserLdapData, _upsertUserAzureSource, _upsertUserAzureData, _upsertUserIdent
   ) where
 
 import Import.NoFoundation
 
+import qualified Ldap.Client as Ldap
+
 
 data UpsertUserMode
   = UpsertUserLoginLdap
+    { upsertUserLdapSource  :: AuthSourceLdapId
+    , upsertUserLdapData    :: Ldap.AttrList []
+    }
   | UpsertUserLoginAzure
-  | UpsertUserLoginDummy { upsertUserIdent :: UserIdent }
-  | UpsertUserLoginOther { upsertUserIdent :: UserIdent } -- does not allow further login
-  | UpsertUserSync       { upsertUserIdent :: UserIdent }
+    { upsertUserAzureSource :: AuthSourceAzureId
+    , upsertUserAzureData   :: [(Text, [ByteString])]  -- TODO: use type synonym?
+    }
+  | UpsertUserLoginDummy
+    { upsertUserIdent       :: UserIdent
+    }
+  | UpsertUserLoginOther  -- does not allow further login
+    { upsertUserIdent       :: UserIdent
+    }
+  | UpsertUserSync
+    { upsertUserIdent       :: UserIdent
+    }
   | UpsertUserGuessUser
   deriving (Eq, Ord, Read, Show, Generic)