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

Define GSequenceable over M1.

Browse Source
This commit is contained in:
Rob Rix 2016-07-22 15:58:36 -04:00
parent 9a94dddd2b
commit 3913e078f4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Sequenceable/Generic.hs
View File

@ -25,3 +25,6 @@ instance GSequenceable (K1 i c) where
instance GSequenceable f => GSequenceable (Rec1 f) where
gsequenceAlt (Rec1 a) = Rec1 <$> gsequenceAlt a
instance GSequenceable f => GSequenceable (M1 i c f) where
gsequenceAlt (M1 a) = M1 <$> gsequenceAlt a