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:
parent
e780689400
commit
1ede2d2a23
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user