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

Compute the maximum value in each element correctly.

Browse Source
This commit is contained in:
Rob Rix 2016-05-13 18:44:27 -04:00
parent 9567c44c57
commit 2008b63c17
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/AlignmentSpec.hs
View File

@ -130,7 +130,7 @@ data PrettyDiff = PrettyDiff { unPrettySources :: Both (Source.Source Char), unP
deriving Eq deriving Eq
instance Show PrettyDiff where instance Show PrettyDiff where
show (PrettyDiff sources lines) = showLine (maximum (0 : (length <$> shownLines))) <$> shownLines >>= ('\n':) show (PrettyDiff sources lines) = showLine (maximum (0 : (maximum . fmap length <$> shownLines))) <$> shownLines >>= ('\n':)
where shownLines = catMaybes $ toBoth <$> lines where shownLines = catMaybes $ toBoth <$> lines
showLine n line = uncurry ((++) . (++ " | ")) (fromThese (replicate n ' ') (replicate n ' ') (runJoin (pad n <$> line))) showLine n line = uncurry ((++) . (++ " | ")) (fromThese (replicate n ' ') (replicate n ' ') (runJoin (pad n <$> line)))
showDiff diff = filter (/= '\n') . toList . Source.slice (getRange diff) showDiff diff = filter (/= '\n') . toList . Source.slice (getRange diff)