1
1
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00

Sequence the operations with >>.

This commit is contained in:
Rob Rix 2019-09-24 16:21:17 -04:00
parent 585da5e91a
commit dac58cfca4
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7

View File

@ -125,7 +125,7 @@ instance GToTag f => GToTag (M1 i c f) where
gtags = gtags . unM1
instance (GToTag f, GToTag g) => GToTag (f :*: g) where
gtags (f :*: g) = (<>) <$> gtags f <*> gtags g
gtags (f :*: g) = gtags f >> gtags g
instance (GToTag f, GToTag g) => GToTag (f :+: g) where
gtags (L1 l) = gtags l