diff options
Diffstat (limited to 'Types/View.hs')
| -rw-r--r-- | Types/View.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Types/View.hs b/Types/View.hs index a6c52b3d28..f18647371d 100644 --- a/Types/View.hs +++ b/Types/View.hs @@ -23,7 +23,8 @@ data View = View deriving (Eq, Read, Show) instance Arbitrary View where - arbitrary = View <$> pure (Git.Ref "master") <*> arbitrary + arbitrary = View (Git.Ref "master") + <$> resize 10 (listOf arbitrary) data ViewComponent = ViewComponent { viewField :: MetaField @@ -43,8 +44,7 @@ data ViewFilter instance Arbitrary ViewFilter where arbitrary = do - size <- arbitrarySizedBoundedIntegral `suchThat` (< 100) - s <- S.fromList <$> vector size + s <- S.fromList <$> resize 10 (listOf arbitrary) ifM arbitrary ( return (FilterValues s) , return (ExcludeValues s) |