github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Don’t bind a variable for n.

Browse Source
This commit is contained in:
Rob Rix 2015-12-11 15:03:03 -05:00
parent 3efa6e6ff4
commit 77c9970f25
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Spec.hs
View File

@ -35,7 +35,7 @@ instance (Eq a, Eq annotation, Arbitrary a, Arbitrary annotation) => Arbitrary (
arbitrary = sized boundedTerm arbitrary = sized boundedTerm
where boundedTerm n = ArbitraryTerm <$> ((,) <$> arbitrary <*> boundedSyntax n) where boundedTerm n = ArbitraryTerm <$> ((,) <$> arbitrary <*> boundedSyntax n)
boundedSyntax 0 = liftM Leaf arbitrary boundedSyntax 0 = liftM Leaf arbitrary
boundedSyntax n = frequency boundedSyntax _ = frequency
[ (1, liftM Leaf arbitrary), [ (1, liftM Leaf arbitrary),
(4, liftM Indexed $ listOf arbitrary), (4, liftM Indexed $ listOf arbitrary),
(4, liftM Fixed $ listOf arbitrary), (4, liftM Fixed $ listOf arbitrary),