1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00

🔥 some redundant parens.

This commit is contained in:
Rob Rix 2016-04-14 21:56:07 -04:00
parent 6829c6baab
commit 19ccf9fd54

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 ]