1
1
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:
Rob Rix 2016-07-22 15:40:05 -04:00
parent 5b36bf1507
commit ff869ec517

View File

@ -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)