github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 13:51:44 +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
_ -> toText source
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
offset = start (range term)
toTermName' :: SyntaxTerm leaf fields -> Text
toTermName' = toTermName offset source
range = byteRange . extract
toTermName' = toTermName (start (byteRange (extract term))) source
-- The user-facing category name
toCategoryName :: Category -> Text