From c929d42ebdb8b8ef810bde44ae52c6ddfd91196c Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Fri, 26 Jan 2024 23:26:00 +0100
Subject: [PATCH] chore(foundation): rename auth exceptions

---
 src/Foundation/Types.hs | 41 +++++++++++++----------------------------
 1 file changed, 13 insertions(+), 28 deletions(-)

diff --git a/src/Foundation/Types.hs b/src/Foundation/Types.hs
index 252c1be26..96e858dfe 100644
--- a/src/Foundation/Types.hs
+++ b/src/Foundation/Types.hs
@@ -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
 
 module Foundation.Types
-  ( UpsertCampusUserMode(..)
-  , _UpsertCampusUserLoginLdap, _UpsertCampusUserLoginDummy, _UpsertCampusUserLoginOther, _UpsertCampusUserLdapSync, _UpsertCampusUserGuessUser
-  , _upsertCampusUserIdent
-  , UpsertAzureUserMode(..)
-  , _UpsertAzureUserLoginOAuth, _UpsertAzureUserLoginDummy, _UpsertAzureUserLoginOther, _UpsertAzureUserOAuthSync, _UpsertAzureUserGuessUser
-  , _upsertAzureUserIdent
+  ( UpsertUserMode(..)
+  , _UpsertUserLoginLdap, _UpsertUserLoginAzure, _UpsertUserLoginDummy, _UpsertUserLoginOther, _UpsertUserSync, _UpsertUserGuessUser
+  , _upsertUserIdent
   ) where
 
 import Import.NoFoundation
 
 
-data UpsertCampusUserMode
-  = UpsertCampusUserLoginLdap
-  | UpsertCampusUserLoginDummy { upsertCampusUserIdent :: UserIdent }
-  | UpsertCampusUserLoginOther { upsertCampusUserIdent :: UserIdent } -- erlaubt keinen späteren Login
-  | UpsertCampusUserLdapSync   { upsertCampusUserIdent :: UserIdent }
-  | UpsertCampusUserGuessUser
+data UpsertUserMode
+  = UpsertUserLoginLdap
+  | UpsertUserLoginAzure
+  | UpsertUserLoginDummy { upsertUserIdent :: UserIdent }
+  | UpsertUserLoginOther { upsertUserIdent :: UserIdent } -- does not allow further login
+  | UpsertUserSync       { upsertUserIdent :: UserIdent }
+  | UpsertUserGuessUser
   deriving (Eq, Ord, Read, Show, Generic)
 
-makeLenses_ ''UpsertCampusUserMode
-makePrisms ''UpsertCampusUserMode
-
-
--- 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
+makeLenses_ ''UpsertUserMode
+makePrisms ''UpsertUserMode