mirror of
https://github.com/github/semantic.git
synced 2024-12-27 00:44:57 +03:00
Define GSequenceable over K1.
This commit is contained in:
parent
5b36bf1507
commit
ff869ec517
@ -16,3 +16,6 @@ instance GSequenceable U1 where
|
||||
|
||||
instance GSequenceable Par1 where
|
||||
gsequenceAlt (Par1 a) = Par1 <$> a
|
||||
|
||||
instance GSequenceable (K1 i c) where
|
||||
gsequenceAlt (K1 a) = pure (K1 a)
|
||||
|
Loading…
Reference in New Issue
Block a user