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

Represent newlines distinct from empty strings

Browse Source
This commit is contained in:
joshvera 2015-12-10 11:33:02 -05:00
parent 6426a57d51
commit 5b8908ac82
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Split.hs
View File

@ -169,7 +169,7 @@ contextRows childIndices previousIndices sources = zipWithMaybe rowFromMaybeRows
textElements :: Range -> String -> [HTML]
textElements range source = textOrBreak <$> actualLines s
where s = substring range source
textOrBreak "" = Break
textOrBreak "\n" = Break
textOrBreak x = Text x
starts :: (Range , Range) -> (Int, Int)
@ -236,4 +236,6 @@ actualLines "" = [""]
actualLines lines = case break (== '\n') lines of
(l, lines') -> l : (case lines' of
[] -> []
_:lines' -> actualLines lines')
_:lines' -> (case actualLines lines' of
[] -> ["\n"]
s:rest -> ('\n' : s) : rest))