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

Tighten up toTermName.

Browse Source
This commit is contained in:
Rob Rix 2017-05-08 11:16:23 -04:00
parent 76002f08c0
commit 9df2a73e38
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Renderer/TOC.hs
View File

@ -165,12 +165,9 @@ toTermName parentOffset parentSource term = case unwrap term of
_ -> toMethodNameWithReceiver receiver identifier _ -> toMethodNameWithReceiver receiver identifier
_ -> toText source _ -> toText source
where where
source = Source.slice (offsetRange (range term) (negate parentOffset)) parentSource source = Source.slice (offsetRange (byteRange (extract term)) (negate parentOffset)) parentSource
toMethodNameWithReceiver receiver name = toTermName' receiver <> "." <> toTermName' name toMethodNameWithReceiver receiver name = toTermName' receiver <> "." <> toTermName' name
offset = start (range term) toTermName' = toTermName (start (byteRange (extract term))) source
toTermName' :: SyntaxTerm leaf fields -> Text
toTermName' = toTermName offset source
range = byteRange . extract
-- The user-facing category name -- The user-facing category name
toCategoryName :: Category -> Text toCategoryName :: Category -> Text