Improve shrinking for PoolCertificate.

cardano-foundation · Aug 13, 2020 · e4136cf · e4136cf
1 parent 229d145
commit e4136cf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/core/test/unit/Cardano/Pool/DB/Arbitrary.hs b/lib/core/test/unit/Cardano/Pool/DB/Arbitrary.hs
@@ -183,7 +183,7 @@ instance Arbitrary PoolCertificate where
         , Retirement
             <$> arbitrary
         ]
-    shrink = const []
+    shrink = genericShrink
 
 instance Arbitrary StakePoolMetadataHash where
     arbitrary = fmap (StakePoolMetadataHash . BS.pack) (vector 32)