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

Drop the broken min.

Browse Source
This commit is contained in:
Rob Rix 2016-04-25 13:56:57 -04:00
parent d9c2bb8e4c
commit 1fb647ae9d
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

@ -116,7 +116,7 @@ instance Eq PrettyDiff where
instance Show PrettyDiff where instance Show PrettyDiff where
show (PrettyDiff sources lines) = intercalate "\n" (showLine 40 <$> lines) show (PrettyDiff sources lines) = intercalate "\n" (showLine 40 <$> lines)
where showLine n line = case runJoin line of where showLine n line = case runJoin line of
This before -> let beforeString = showDiff before (fst sources) in beforeString ++ showString (replicate (max 0 (min n (n - length beforeString))) ' ') " | " This before -> let beforeString = showDiff before (fst sources) in beforeString ++ showString (replicate (max 0 (n - length beforeString)) ' ') " | "
That after -> showString (replicate n ' ') (showString " | " (showDiff after (snd sources))) That after -> showString (replicate n ' ') (showString " | " (showDiff after (snd sources)))
These before after -> showDiff before (fst sources) ++ showString " | " (showDiff after (snd sources)) These before after -> showDiff before (fst sources) ++ showString " | " (showDiff after (snd sources))
showDiff diff = toList . stripNewlines . Source.slice (getRange diff) showDiff diff = toList . stripNewlines . Source.slice (getRange diff)