From 4c46e82769847177f6582447f027a56f9b555fd0 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 21 Nov 2025 14:51:23 +0100 Subject: ... --- overlays/spm/server/Spm/Server/Ctx.hs | 3 +-- overlays/spm/server/Spm/Server/Database.hs | 9 ++++----- 2 files changed, 5 insertions(+), 7 deletions(-) (limited to 'overlays/spm/server/Spm/Server') diff --git a/overlays/spm/server/Spm/Server/Ctx.hs b/overlays/spm/server/Spm/Server/Ctx.hs index 18452a0a..1d228043 100644 --- a/overlays/spm/server/Spm/Server/Ctx.hs +++ b/overlays/spm/server/Spm/Server/Ctx.hs @@ -11,7 +11,6 @@ import Database.Persist.Postgresql import UnliftIO.Pool import Control.Lens.TH -import Type.Reflection (Typeable) import GHC.Generics (Generic) @@ -19,6 +18,6 @@ data ServerCtx = ServerCtx { _sctxSqlPool :: Pool SqlBackend , _sctxInstanceId :: UUID , _sctxJwkSet :: JWKSet - } deriving (Generic, Typeable) + } deriving (Generic) makeLenses ''ServerCtx diff --git a/overlays/spm/server/Spm/Server/Database.hs b/overlays/spm/server/Spm/Server/Database.hs index 3156e920..4405452f 100644 --- a/overlays/spm/server/Spm/Server/Database.hs +++ b/overlays/spm/server/Spm/Server/Database.hs @@ -13,7 +13,6 @@ import Database.Persist.Sql import Database.Persist.TH import GHC.Generics (Generic) -import Type.Reflection (Typeable) import Data.Text (Text) @@ -33,22 +32,22 @@ import Web.HttpApiData newtype MailMailbox = MailMailbox { unMailMailbox :: CI Text - } deriving stock (Eq, Ord, Read, Show, Generic, Typeable) + } deriving stock (Eq, Ord, Read, Show, Generic) deriving newtype (PersistField, PersistFieldSql) makeWrapped ''MailMailbox newtype MailLocal = MailLocal { unMailLocal :: CI Text - } deriving stock (Eq, Ord, Read, Show, Generic, Typeable) + } deriving stock (Eq, Ord, Read, Show, Generic) deriving newtype (PersistField, PersistFieldSql) makeWrapped ''MailLocal newtype MailExtension = MailExtension { unMailExtension :: CI Text - } deriving stock (Eq, Ord, Read, Show, Generic, Typeable) + } deriving stock (Eq, Ord, Read, Show, Generic) deriving newtype (PersistField, PersistFieldSql) makeWrapped ''MailExtension newtype MailDomain = MailDomain { unMailDomain :: CI Text - } deriving stock (Eq, Ord, Read, Show, Generic, Typeable) + } deriving stock (Eq, Ord, Read, Show, Generic) deriving newtype (PersistField, PersistFieldSql) makeWrapped ''MailDomain -- cgit v1.2.3