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:
parent
585da5e91a
commit
dac58cfca4
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user