github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

🔥 alignRows again.

Browse Source
This commit is contained in:
Rob Rix 2016-03-14 19:45:08 -04:00
parent aa36f83da3
commit 34a76bfe93
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Alignment.hs
View File

@ -110,7 +110,3 @@ openRange source range = (at source <$> maybeLastIndex range) /= Just '\n'
-- | A row in a split diff, composed of a before line and an after line.
type Row a = Both (Line a)
-- | Align Both containers of lines into a container of Both lines, filling any gaps with empty rows which are either open or closed to match the opposite side.
alignRows :: Align f => Both (f (Line a)) -> f (Both (Line a))
alignRows = runBothWith (alignWith (bothOfThese (pure $ Line [])))