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

Remove EmptyRow case

Browse Source
This commit is contained in:
joshvera 2015-12-10 10:59:46 -05:00
parent da2c1505f3
commit 5c9f2762dd
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Split.hs
View File

@ -144,7 +144,6 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego
annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCategories) (Indexed i)) before after = (rewrap <$> rows, ranges) annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCategories) (Indexed i)) before after = (rewrap <$> rows, ranges)
where where
rewrap EmptyRow = EmptyRow
rewrap (Row left right) = Row (Line [ Ul (classify leftCategories) $ unLine left ]) (Line [ Ul (classify rightCategories) $ unLine right ]) rewrap (Row left right) = Row (Line [ Ul (classify leftCategories) $ unLine left ]) (Line [ Ul (classify rightCategories) $ unLine right ])
ranges = (left, right) ranges = (left, right)
rows = appendRemainder $ foldl sumRows ([], starts ranges) i rows = appendRemainder $ foldl sumRows ([], starts ranges) i