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): rename auth exceptions

Browse Source
This commit is contained in:
Sarah Vaupel 2024-01-26 23:26:00 +01:00
parent 4051d1e11b
commit c929d42ebd
1 changed files with 13 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/Foundation/Types.hs
View File

@ -1,39 +1,24 @@
-- SPDX-FileCopyrightText: 2023 Gregor Kleen <gregor.kleen@ifi.lmu.de>,David Mosbach <david.mosbach@uniworx.de> -- SPDX-FileCopyrightText: 2023-2024 Sarah Vaupel <sarah.vaupel@uniworx.de>, Gregor Kleen <gregor.kleen@ifi.lmu.de>, David Mosbach <david.mosbach@uniworx.de>
-- --
-- SPDX-License-Identifier: AGPL-3.0-or-later -- SPDX-License-Identifier: AGPL-3.0-or-later
module Foundation.Types module Foundation.Types
( UpsertCampusUserMode(..) ( UpsertUserMode(..)
, _UpsertCampusUserLoginLdap, _UpsertCampusUserLoginDummy, _UpsertCampusUserLoginOther, _UpsertCampusUserLdapSync, _UpsertCampusUserGuessUser , _UpsertUserLoginLdap, _UpsertUserLoginAzure, _UpsertUserLoginDummy, _UpsertUserLoginOther, _UpsertUserSync, _UpsertUserGuessUser
, _upsertCampusUserIdent , _upsertUserIdent
, UpsertAzureUserMode(..)
, _UpsertAzureUserLoginOAuth, _UpsertAzureUserLoginDummy, _UpsertAzureUserLoginOther, _UpsertAzureUserOAuthSync, _UpsertAzureUserGuessUser
, _upsertAzureUserIdent
) where ) where
import Import.NoFoundation import Import.NoFoundation
data UpsertCampusUserMode data UpsertUserMode
= UpsertCampusUserLoginLdap = UpsertUserLoginLdap
| UpsertCampusUserLoginDummy { upsertCampusUserIdent :: UserIdent } | UpsertUserLoginAzure
| UpsertCampusUserLoginOther { upsertCampusUserIdent :: UserIdent } -- erlaubt keinen späteren Login | UpsertUserLoginDummy { upsertUserIdent :: UserIdent }
| UpsertCampusUserLdapSync { upsertCampusUserIdent :: UserIdent } | UpsertUserLoginOther { upsertUserIdent :: UserIdent } -- does not allow further login
| UpsertCampusUserGuessUser | UpsertUserSync { upsertUserIdent :: UserIdent }
| UpsertUserGuessUser
deriving (Eq, Ord, Read, Show, Generic) deriving (Eq, Ord, Read, Show, Generic)
makeLenses_ ''UpsertCampusUserMode makeLenses_ ''UpsertUserMode
makePrisms ''UpsertCampusUserMode makePrisms ''UpsertUserMode
-- Azure users logging in via OAuth2
data UpsertAzureUserMode
= UpsertAzureUserLoginOAuth
| UpsertAzureUserLoginDummy { upsertAzureUserIdent :: UserIdent }
| UpsertAzureUserLoginOther { upsertAzureUserIdent :: UserIdent }
| UpsertAzureUserOAuthSync { upsertAzureUserIdent :: UserIdent }
| UpsertAzureUserGuessUser
deriving (Eq, Ord, Read, Show, Generic)
makeLenses_ ''UpsertAzureUserMode
makePrisms ''UpsertAzureUserMode