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

🔥 some redundant parens.

Browse Source
This commit is contained in:
Rob Rix 2016-04-14 21:56:07 -04:00
parent 6829c6baab
commit 19ccf9fd54
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/ArbitraryTerm.hs
View File

@ -59,7 +59,7 @@ instance Arbitrary CategorySet where
instance Arbitrary a => Arbitrary (Join (,) a) where instance Arbitrary a => Arbitrary (Join (,) a) where
arbitrary = both <$> arbitrary <*> arbitrary arbitrary = both <$> arbitrary <*> arbitrary
shrink b = both <$> (shrink (fst b)) <*> (shrink (snd b)) shrink b = both <$> shrink (fst b) <*> shrink (snd b)
instance Arbitrary a => Arbitrary (Line a) where instance Arbitrary a => Arbitrary (Line a) where
arbitrary = oneof [ Line <$> arbitrary, Closed <$> arbitrary ] arbitrary = oneof [ Line <$> arbitrary, Closed <$> arbitrary ]