correct Eq (SeqState DummyTarget) instance

cardano-foundation · May 24, 2019 · ce69389 · ce69389
1 parent 1a44b2b
commit ce69389
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Primitive/AddressDiscovery.hs b/lib/core/src/Cardano/Wallet/Primitive/AddressDiscovery.hs
@@ -399,7 +399,7 @@ nextAddresses _ !key (AddressPoolGap !g) !cc !fromIx =
 -- | An ordered set of pending indexes. This keep track of indexes used
 newtype PendingIxs = PendingIxs
     { pendingIxsToList :: [Index 'Soft 'AddressK] }
-    deriving stock (Generic, Show)
+    deriving stock (Generic, Show, Eq)
 instance NFData PendingIxs
 
 -- | An empty pending set of change indexes.

diff --git a/lib/core/test/unit/Cardano/Wallet/DBSpec.hs b/lib/core/test/unit/Cardano/Wallet/DBSpec.hs
@@ -185,8 +185,7 @@ data DummyTarget
 instance KeyToAddress DummyTarget where
     keyToAddress = Address . unXPub . getKey
 
-instance Eq (SeqState DummyTarget) where
-    _ == _ = True
+deriving instance Eq (SeqState DummyTarget)
 
 instance Arbitrary (Wallet (SeqState DummyTarget) DummyTarget) where
     shrink _ = []