@@ -768,7 +768,7 @@ instance Arbitrary ReplicaBounds where
768 return (ReplicasLowerBounded a)
768 return (ReplicasLowerBounded a)
770instance Arbitrary NodeAttrName where
770instance Arbitrary NodeAttrName where
771− arbitrary = NodeAttrName . T.pack . getNonEmpty <$> arbitrary
771+ arbitrary = NodeAttrName . T.pack <$> listOf1 arbitraryAlphaNum
774instance Arbitrary NodeAttrFilter where
774instance Arbitrary NodeAttrFilter where
@@ -777,6 +777,7 @@ instance Arbitrary NodeAttrFilter where
777 s:ss <- listOf1 (listOf1 arbitraryAlphaNum)
777 s:ss <- listOf1 (listOf1 arbitraryAlphaNum)
778 let ts = T.pack <$> s :| ss
778 let ts = T.pack <$> s :| ss
779 return (NodeAttrFilter n ts)
779 return (NodeAttrFilter n ts)
780+ shrink = genericShrink
781instance Arbitrary VersionNumber where
782instance Arbitrary VersionNumber where
782 arbitrary = mk . fmap getPositive . getNonEmpty <$> arbitrary
783 arbitrary = mk . fmap getPositive . getNonEmpty <$> arbitrary