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/Database.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'overlays/spm/server/Spm/Server/Database.hs') 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