From f2ecf753ca62c284a68ca0272b65b5092e346abf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 26 Mar 2014 16:40:52 -0400 Subject: avoid generating arbitrary MetaData with illegal fields --- Types/MetaData.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Types') diff --git a/Types/MetaData.hs b/Types/MetaData.hs index 706d037bc..8df56734d 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -264,7 +264,9 @@ parseMetaData p = (,) instance Arbitrary MetaData where arbitrary = do size <- arbitrarySizedBoundedIntegral `suchThat` (< 500) - MetaData . M.fromList <$> vector size + MetaData . M.filterWithKey legal . M.fromList <$> vector size + where + legal k _v = legalField $ fromMetaField k instance Arbitrary MetaValue where arbitrary = MetaValue <$> arbitrary <*> arbitrary -- cgit v1.2.3