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:
parent
da2c1505f3
commit
5c9f2762dd
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user