1
1
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00

Syntax uses the generically derived GSequenceable implementation.

This commit is contained in:
Rob Rix 2016-07-22 16:07:07 -04:00
parent e780689400
commit 1ede2d2a23

View File

@ -42,9 +42,6 @@ instance (Arbitrary leaf, Arbitrary f) => Arbitrary (Syntax leaf f) where
shrink = genericShrink
instance Sequenceable (Syntax leaf) where
sequenceAlt syntax = case syntax of
Leaf a -> pure (Leaf a)
Indexed i -> Indexed <$> sequenceAlt i
Fixed i -> Fixed <$> sequenceAlt i
sequenceAlt = gsequenceAlt
instance GSequenceable (Syntax leaf)