1
1
mirror of https://github.com/github/semantic.git synced 2024-12-26 16:33:03 +03:00

Remove EmptyRow case

This commit is contained in:
joshvera 2015-12-10 10:59:46 -05:00
parent da2c1505f3
commit 5c9f2762dd

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)
where
rewrap EmptyRow = EmptyRow
rewrap (Row left right) = Row (Line [ Ul (classify leftCategories) $ unLine left ]) (Line [ Ul (classify rightCategories) $ unLine right ])
ranges = (left, right)
rows = appendRemainder $ foldl sumRows ([], starts ranges) i