Slightly simplify the Arbitrary instance for PeerAddr

More direct and no discards in the generator.
IntersectMBO · May 12, 2021 · ce6b910 · ce6b910
1 parent 24918f9
commit ce6b910
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-network/test/Test/Ouroboros/Network/PeerSelection/Instances.hs b/ouroboros-network/test/Test/Ouroboros/Network/PeerSelection/Instances.hs
@@ -34,7 +34,7 @@ newtype PeerAddr = PeerAddr Int
 -- here for the few cases that need it, and it is used for (lack-of) shrinking.
 --
 instance Arbitrary PeerAddr where
-  arbitrary = PeerAddr . getNonNegative <$> arbitrary
+  arbitrary = PeerAddr <$> arbitrarySizedNatural
   shrink _  = []