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

simplify appending a row with two newlines

Browse Source
This commit is contained in:
joshvera 2015-12-09 17:40:41 -05:00
parent eecfd4ff6d
commit 40cc463a90
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Split.hs
View File

@ -183,10 +183,7 @@ rowFromMaybeRows a b = Row (maybe EmptyLine (Line . (:[])) a) (maybe EmptyLine
adjoin2 :: [Row] -> Row -> [Row] adjoin2 :: [Row] -> Row -> [Row]
adjoin2 [] row = [row] adjoin2 [] row = [row]
-- handle the case where we append a newline on both sides -- handle the case where we append a newline on both sides
adjoin2 rows (Row left@(Line (Text "" : _)) right@(Line (Text "" : _))) = Row left right : zipWith Row lefts rights adjoin2 rows (Row left@(Line (Text "" : _)) right@(Line (Text "" : _))) = Row left right : rows
where
lefts = leftLines rows
rights = rightLines rows
adjoin2 rows (Row left@(Line (Text "" : _)) right) = Row left EmptyLine : zipWith Row lefts rights adjoin2 rows (Row left@(Line (Text "" : _)) right) = Row left EmptyLine : zipWith Row lefts rights
where where
lefts = leftLines rows lefts = leftLines rows