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

Add a function to convert These -> (,).

Browse Source
This commit is contained in:
Rob Rix 2016-04-25 14:14:05 -04:00
parent 98a7c049b2
commit f602dc90fe
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/AlignmentSpec.hs
View File

@ -122,3 +122,4 @@ instance Show PrettyDiff where
showDiff diff = toList . stripNewlines . Source.slice (getRange diff)
stripNewlines = fmap (\ c -> if c == '\n' then ' ' else c)
pad n string = showString (take n string) . showString (replicate (max 0 (n - length string)) ' ')
toBoth them = (uncurry both . fromThese (const (repeat ' ')) (const (repeat ' ')) . runJoin $ showDiff <$> them) <*> sources