fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(foundation): tweak UpsertUserData fields

Browse Source
This commit is contained in:
Sarah Vaupel 2024-03-07 05:37:27 +01:00
parent 77a9100b2e
commit 4feb05a02e
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Foundation/Types.hs
View File

@ -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)