github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
Code Issues Projects Releases Wiki Activity

Correct the columns in rangeToSourceSpan.

Browse Source
This commit is contained in:
Rob Rix 2017-05-19 10:49:03 -04:00
parent 0bb2551909
commit fd9a240dbb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Source.hs
View File

@ -122,8 +122,8 @@ rangeToSourceSpan source range = SourceSpan startPos endPos
where startPos = maybe (SourcePos 1 1) (toStartPos 1) (head lineRanges)
endPos = toEndPos (Prologue.length lineRanges) (fromMaybe (rangeAt 0) (snd <$> unsnoc lineRanges))
lineRanges = actualLineRanges (slice range source)
toStartPos line range = SourcePos line (start range)
toEndPos line range = SourcePos line (end range)
toStartPos line range = SourcePos line (succ (start range))
toEndPos line range = SourcePos line (succ (end range))
-- | Return a 'Range' that covers the entire text.
totalRange :: Source -> Range