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

Merge branch 'master' into unified

Browse Source
This commit is contained in:
Matt Diephouse 2016-01-22 11:04:53 -05:00
commit 45de586389
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Parsers.hs
View File

@ -22,5 +22,5 @@ lineByLineParser input = return . root . Indexed $ case foldl' annotateLeaves ([
leaf charIndex line = Info (Range charIndex $ charIndex + T.length line) mempty :< Leaf line
annotateLeaves (accum, charIndex) line =
(accum ++ [ leaf charIndex (toText line) ]
, charIndex + length line + 1)
, charIndex + length line)
toText = T.pack . Source.toString