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

Use a set of kinds.

Browse Source
This commit is contained in:
Rob Rix 2019-09-18 18:49:50 -04:00
parent d9efe629ad
commit bb57769b53
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
semantic-tags/src/Tags/Taggable/Precise.hs
View File

@ -46,7 +46,7 @@ newtype Python a = Python { getPython :: Python.Module a }
type ContextToken = (Text, Maybe Range)
runTagging :: Blob -> Set.Set Text -> Python Location -> [Tag]
runTagging :: Blob -> Set.Set Kind -> Python Location -> [Tag]
runTagging blob symbolsToSummarize
= ($ [])
. appEndo
@ -62,7 +62,7 @@ class ToTag t where
:: ( Carrier sig m
, Member (Reader Blob) sig
, Member (Reader [ContextToken]) sig
, Member (Reader (Set.Set Text)) sig
, Member (Reader (Set.Set Kind)) sig
)
=> t Location
-> m (Endo [Tag])
@ -76,7 +76,7 @@ class ToTagBy (strategy :: Strategy) t where
:: ( Carrier sig m
, Member (Reader Blob) sig
, Member (Reader [ContextToken]) sig
, Member (Reader (Set.Set Text)) sig
, Member (Reader (Set.Set Kind)) sig
)
=> t Location
-> m (Endo [Tag])
@ -101,7 +101,7 @@ class GToTag t where
:: ( Carrier sig m
, Member (Reader Blob) sig
, Member (Reader [ContextToken]) sig
, Member (Reader (Set.Set Text)) sig
, Member (Reader (Set.Set Kind)) sig
)
=> t Location
-> m (Endo [Tag])