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

Alignment.

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

View File

@ -39,9 +39,9 @@ instance (ToTagBy strategy t, strategy ~ ToTagInstance t) => ToTags t where
class ToTagBy (strategy :: Strategy) t where
tags'
:: ( Carrier sig m
, Member (Reader Source) sig
, Member (Writer Tags.Tags) sig
)
, Member (Reader Source) sig
, Member (Writer Tags.Tags) sig
)
=> t Loc
-> m ()
@ -114,9 +114,9 @@ instance (Generic1 t, GToTag (Rep1 t)) => ToTagBy 'Generic t where
class GToTag t where
gtags
:: ( Carrier sig m
, Member (Reader Source) sig
, Member (Writer Tags.Tags) sig
)
, Member (Reader Source) sig
, Member (Writer Tags.Tags) sig
)
=> t Loc
-> m ()