github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00
Code Issues Projects Releases Wiki Activity

🔥 partial field selectors for Token.

Browse Source
This commit is contained in:
Rob Rix 2019-10-30 13:35:35 -04:00
parent 8d6eecc77b
commit 9770cbdc9b
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Tags/Taggable.hs
View File

@ -47,9 +47,9 @@ import qualified Language.TypeScript.Syntax as TypeScript
-- TODO: Move to src/Data
data Token
= Enter { tokenName :: Text, tokenSnippetRange :: Range }
| Exit { tokenName :: Text, tokenSnippetRange :: Range}
| Iden { identifierName :: Text, tokenLoc :: Loc, docsLiteralRange :: Maybe Range }
= Enter Text Range
| Exit Text Range
| Iden Text Loc (Maybe Range)
deriving (Eq, Show)
type Tagger = Stream (Of Token)