@@ -768,7 +768,7 @@ instance Arbitrary ReplicaBounds where
768768 return (ReplicasLowerBounded a)
769769
770770instance Arbitrary NodeAttrName where
771− arbitrary = NodeAttrName . T.pack . getNonEmpty <$> arbitrary
771+ arbitrary = NodeAttrName . T.pack <$> listOf1 arbitraryAlphaNum
772772
773773
774774instance Arbitrary NodeAttrFilter where
@@ -777,6 +777,7 @@ instance Arbitrary NodeAttrFilter where
777777 s:ss <- listOf1 (listOf1 arbitraryAlphaNum)
778778 let ts = T.pack <$> s :| ss
779779 return (NodeAttrFilter n ts)
780+ shrink = genericShrink
780781
781782instance Arbitrary VersionNumber where
782783 arbitrary = mk . fmap getPositive . getNonEmpty <$> arbitrary