github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-25 11:04:00 +03:00
Code Issues Projects Releases Wiki Activity

Rename ToTagInstance to ToTagsInstance.

Browse Source
This commit is contained in:
Rob Rix 2019-09-24 16:42:58 -04:00
parent f791316003
commit 60c3e359de
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
semantic-tags/src/Language/Python/Tags.hs
View File

@ -33,7 +33,7 @@ instance Tags.ToTags Term where
tags = tags . getTerm
instance (ToTagsBy strategy t, strategy ~ ToTagInstance t) => ToTags t where
instance (ToTagsBy strategy t, strategy ~ ToTagsInstance t) => ToTags t where
tags = tags' @strategy
@ -49,12 +49,12 @@ class ToTagsBy (strategy :: Strategy) t where
data Strategy = Generic | Custom
type family ToTagInstance t :: Strategy where
ToTagInstance (_ :+: _) = 'Custom
ToTagInstance Py.FunctionDefinition = 'Custom
ToTagInstance Py.ClassDefinition = 'Custom
ToTagInstance Py.Call = 'Custom
ToTagInstance _ = 'Generic
type family ToTagsInstance t :: Strategy where
ToTagsInstance (_ :+: _) = 'Custom
ToTagsInstance Py.FunctionDefinition = 'Custom
ToTagsInstance Py.ClassDefinition = 'Custom
ToTagsInstance Py.Call = 'Custom
ToTagsInstance _ = 'Generic
instance (ToTags l, ToTags r) => ToTagsBy 'Custom (l :+: r) where
tags' (L1 l) = tags l