diff --git a/src/Model/Types.hs b/src/Model/Types.hs index c3cd32a20..4e8a7d388 100644 --- a/src/Model/Types.hs +++ b/src/Model/Types.hs @@ -6,6 +6,7 @@ module Model.Types ( module Types ) where +import Model.Types.Auth as Types import Model.Types.Common as Types import Model.Types.Course as Types import Model.Types.DateTime as Types @@ -13,7 +14,6 @@ import Model.Types.Exam as Types import Model.Types.ExamOffice as Types import Model.Types.Health as Types import Model.Types.Mail as Types -import Model.Types.Security as Types import Model.Types.Sheet as Types import Model.Types.Submission as Types import Model.Types.Misc as Types diff --git a/src/Model/Types/Security.hs b/src/Model/Types/Auth.hs similarity index 97% rename from src/Model/Types/Security.hs rename to src/Model/Types/Auth.hs index e9ba741ae..d1e3900ff 100644 --- a/src/Model/Types/Security.hs +++ b/src/Model/Types/Auth.hs @@ -1,16 +1,16 @@ --- SPDX-FileCopyrightText: 2022 Gregor Kleen ,Sarah Vaupel ,Sarah Vaupel ,Steffen Jost +-- SPDX-FileCopyrightText: 2022-2024 Sarah Vaupel , Gregor Kleen , Sarah Vaupel , Sarah Vaupel , Steffen Jost -- -- SPDX-License-Identifier: AGPL-3.0-or-later {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-| -Module: Model.Types.Security +Module: Model.Types.Auth Description: Types for authentication and authorisation -} -module Model.Types.Security - ( module Model.Types.Security +module Model.Types.Auth + ( module Model.Types.Auth ) where import ClassyPrelude.Yesod hiding (derivePersistFieldJSON, Proxy(..)) diff --git a/src/Model/Types/Exam.hs b/src/Model/Types/Exam.hs index 986aa3871..83fb519f5 100644 --- a/src/Model/Types/Exam.hs +++ b/src/Model/Types/Exam.hs @@ -73,7 +73,7 @@ import qualified Data.Foldable import Data.Aeson (genericToJSON, genericParseJSON) -import Model.Types.Security +import Model.Types.Auth {-# ANN module ("HLint: ignore Use newtype instead of data" :: String) #-} diff --git a/src/Yesod/Servant.hs b/src/Yesod/Servant.hs index 1c08c46fc..ff56f8a3e 100644 --- a/src/Yesod/Servant.hs +++ b/src/Yesod/Servant.hs @@ -30,7 +30,7 @@ import Control.Lens.Extras import Foundation.Servant.Types import Utils hiding (HasRoute) -import Model.Types.Security +import Model.Types.Auth import Yesod.Core ( Yesod , RenderRoute(..), ParseRoute(..)