github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Map the diffs into functions first up.

Browse Source
This commit is contained in:
Rob Rix 2016-04-25 14:08:04 -04:00
parent dde8612347
commit bd0d8f0d02
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/AlignmentSpec.hs
View File

@ -114,11 +114,11 @@ instance Eq PrettyDiff where
(==) = (==) `on` unPrettyLines
instance Show PrettyDiff where
show (PrettyDiff sources lines) = intercalate "\n" (showLine 40 <$> lines)
show (PrettyDiff sources lines) = intercalate "\n" (showLine 40 . fmap showDiff <$> lines)
where showLine n line = case runJoin line of
This before -> pad n (showDiff before (fst sources)) " | "
That after -> showString (replicate n ' ') (showString " | " (showDiff after (snd sources)))
These before after -> pad n (showDiff before (fst sources)) (showString " | " (showDiff after (snd sources)))
This before -> pad n (before (fst sources)) " | "
That after -> showString (replicate n ' ') (showString " | " (after (snd sources)))
These before after -> pad n (before (fst sources)) (showString " | " (after (snd sources)))
showDiff diff = toList . stripNewlines . Source.slice (getRange diff)
stripNewlines = fmap (\ c -> if c == '\n' then ' ' else c)
pad n string = showString string . showString (replicate (max 0 (n - length string)) ' ')