From 4c46e82769847177f6582447f027a56f9b555fd0 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 21 Nov 2025 14:51:23 +0100
Subject: ...

---
 overlays/spm/lib/Spm/Api.hs | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

(limited to 'overlays/spm/lib/Spm/Api.hs')

diff --git a/overlays/spm/lib/Spm/Api.hs b/overlays/spm/lib/Spm/Api.hs
index 8285cc55..3c22bfb6 100644
--- a/overlays/spm/lib/Spm/Api.hs
+++ b/overlays/spm/lib/Spm/Api.hs
@@ -21,7 +21,6 @@ import Data.Text (Text)
 import qualified Data.Text as Text
 
 import GHC.Generics (Generic)
-import Type.Reflection (Typeable)
 
 import Control.Lens
 
@@ -62,7 +61,7 @@ instance FromHttpApiData SpmStyle where
 
 
 newtype SpmMailbox = SpmMailbox { unSpmMailbox :: CI Text }
-  deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
+  deriving stock (Eq, Ord, Read, Show, Generic)
   deriving newtype (MimeRender PlainText)
 makeWrapped ''SpmMailbox
 
@@ -70,7 +69,7 @@ instance MimeRender JSON SpmMailbox where
   mimeRender p mbox = mimeRender p $ JSON.object [ "mailbox" JSON..= unSpmMailbox mbox ]
 
 newtype SpmDomain = SpmDomain { unSpmDomain :: CI Text }
-  deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
+  deriving stock (Eq, Ord, Read, Show, Generic)
   deriving newtype (MimeRender PlainText)
 makeWrapped ''SpmDomain
 
@@ -79,17 +78,17 @@ instance MimeRender JSON SpmDomain where
 
 newtype SpmLocal = SpmLocal
   { unSpmLocal :: CI Text
-  } deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
+  } deriving stock (Eq, Ord, Read, Show, Generic)
     deriving newtype (ToJSON, FromJSON)
 makeWrapped ''SpmLocal
 newtype SpmExtension = SpmExtension
   { unSpmExtension :: CI Text
-  } deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
+  } deriving stock (Eq, Ord, Read, Show, Generic)
     deriving newtype (ToJSON, FromJSON)
 makeWrapped ''SpmExtension
 
 data SpmMappingState = Valid | Reject
-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable)
+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic)
 instance MimeRender PlainText SpmMappingState where
   mimeRender p = mimeRender @_ @Text p . \case
     Valid -> "valid"
@@ -109,15 +108,15 @@ _SpmMappingStateReject = iso toReject fromReject
 data SpmMappingListingItem = SpmMappingListingItem
   { smlMapping :: SpmMapping
   , smlState :: SpmMappingState
-  } deriving (Eq, Ord, Read, Show, Generic, Typeable)
+  } deriving (Eq, Ord, Read, Show, Generic)
 
 newtype SpmMappingListing = SpmMappingListing { unSpmMappingListing :: [SpmMappingListingItem] }
-  deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
+  deriving stock (Eq, Ord, Read, Show, Generic)
 
 data SpmMapping = SpmMapping
   { spmMappingLocal :: Maybe SpmLocal
   , spmMappingExtension :: Maybe SpmExtension
-  } deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
+  } deriving stock (Eq, Ord, Read, Show, Generic)
 
 _SpmMappingText :: Iso' SpmMapping Text
 _SpmMappingText = iso toText fromText
@@ -170,7 +169,7 @@ instance ToJSON SpmMappingListing where
 data SpmJWTClaims = SpmJWTClaims
   { spmjwtStdClaims :: ClaimsSet
   , spmjwtLocal :: SpmLocal
-  } deriving stock (Eq, Show, Generic, Typeable)
+  } deriving stock (Eq, Show, Generic)
 
 makeLensesFor [("spmjwtStdClaims", "_stdClaims"), ("spmjwtLocal", "_spmjwtLocal")] ''SpmJWTClaims
 
-- 
cgit v1.2.3