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

📝 Cell.

Browse Source
This commit is contained in:
Rob Rix 2016-07-15 11:16:30 -04:00
parent 9a75c03c1e
commit e08fbd141f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Renderer/Split.hs
View File

@ -84,8 +84,10 @@ split diff blobs = TL.toStrict . renderHtml
<> td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell")
<> string "\n"
-- | Something that can be rendered as markup.
-- | A cell in a table, characterized by whether it contains changes & its line number.
data Cell a = Cell !Bool !Int !a
-- | Something that can be rendered as markup with reference to some source.
data Renderable a = Renderable !(Source Char) !a
contentElements :: (Foldable t, ToMarkup f) => Source Char -> Range -> t (f, Range) -> [Markup]