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

Strip newlines inline.

Browse Source
This commit is contained in:
Rob Rix 2016-04-25 15:00:46 -04:00
parent 3a3458684d
commit 55af6c2001
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/AlignmentSpec.hs
View File

@ -115,7 +115,6 @@ instance Show PrettyDiff where
where shownLines = toBoth <$> lines
showLine n line = let (before, after) = fromThese (replicate n ' ') (replicate n ' ') (runJoin (pad n <$> line)) in
before ++ " | " ++ after
showDiff diff = stripNewlines . toList . Source.slice (getRange diff)
stripNewlines = filter (/= '\n')
showDiff diff = filter (/= '\n') . toList . Source.slice (getRange diff)
pad n string = showString (take n string) (showString (replicate (max 0 (n - length string)) ' ') "")
toBoth them = showDiff <$> them `applyThese` modifyJoin (uncurry These) sources