Versionbump: Removed redundant instances.

package.yaml

@@ -93,6 +93,7 @@ dependencies:
   - connection
   - universe
   - universe-base
+  - universe-reverse-instances
   - random
   - random-shuffle
   - th-abstraction

src/Data/Universe/Instances/Reverse/Hashable.hs

@@ -1,4 +1,4 @@
--- SPDX-FileCopyrightText: 2024 Stephan Barth <stephan.barth@uniworx.de>, 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
+-- SPDX-FileCopyrightText: 2022-2024 Stephan Barth <stephan.barth@uniworx.de>, Gregor Kleen <gregor.kleen@ifi.lmu.de>
 --
 -- SPDX-License-Identifier: AGPL-3.0-or-later
 
@@ -12,8 +12,9 @@ import ClassyPrelude
 
 import Data.Universe
 
-instance (Eq b, Finite a) => Eq (a -> b) where
+-- is indirectly imported elsewhere and already provides instance (Eq b, Finite a) => Eq (a -> b) where
-  (==) f g = [ f k | k <- universeF ] == [ g k | k <- universeF ]
+import Data.Universe.Instances.Eq()
+
 
 instance (Hashable a, Hashable b, Finite a) => Hashable (a -> b) where
   hashWithSalt s f = s `hashWithSalt` [ (k, f k) | k <- universeF ]

src/Mail.hs

@@ -208,6 +208,8 @@ _MailSmtpDataSet = to $ \MailSmtpData{..} -> none id
   , Set.null smtpRecipients
   ]
 
+--instance Eq (SelDateTimeFormat -> DateTimeFormat)
+
 
 data MailContext = MailContext
   { mcLanguages :: Languages
@@ -215,6 +217,8 @@ data MailContext = MailContext
   , mcCsvOptions :: CsvOptions
   } deriving (Eq, Ord, Read, Show, Generic)
 
+--deriving via (Data.Universe.Class.Finite) instance Eq MailContext
+
 deriveJSON defaultOptions
   { fieldLabelModifier = intercalate "-" . map toLower . drop 1 . splitCamel
   } ''MailContext