mirror of
https://github.com/github/semantic.git
synced 2024-12-25 07:55:12 +03:00
Strip newlines in the output diff.
This commit is contained in:
parent
938b89f8db
commit
d9c2bb8e4c
@ -119,5 +119,5 @@ instance Show PrettyDiff where
|
||||
This before -> let beforeString = showDiff before (fst sources) in beforeString ++ showString (replicate (max 0 (min n (n - length beforeString))) ' ') " | "
|
||||
That after -> showString (replicate n ' ') (showString " | " (showDiff after (snd sources)))
|
||||
These before after -> showDiff before (fst sources) ++ showString " | " (showDiff after (snd sources))
|
||||
showDiff diff = toList . Source.slice (getRange diff)
|
||||
showDiff diff = toList . stripNewlines . Source.slice (getRange diff)
|
||||
stripNewlines = fmap (\ c -> if c == '\n' then ' ' else c)
|
||||
|
Loading…
Reference in New Issue
Block a user