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

Syntax uses the generically derived GSequenceable implementation.

Browse Source
This commit is contained in:
Rob Rix 2016-07-22 16:07:07 -04:00
parent e780689400
commit 1ede2d2a23
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Syntax.hs
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)