chore(auth): add more data to user upsert mode

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)