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

add newline to the end of Row toMarkup

Browse Source
This commit is contained in:
joshvera 2015-12-09 11:25:38 -05:00
parent c67ff8f2e5
commit dc456afc65
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Split.hs
View File

@ -68,7 +68,7 @@ data Row = Row Line Line
deriving (Show, Eq) deriving (Show, Eq)
instance ToMarkup Row where instance ToMarkup Row where
toMarkup (Row left right) = (tr $ toMarkup left <> toMarkup right) toMarkup (Row left right) = (tr $ toMarkup left <> toMarkup right) <> string "\n"
instance ToMarkup Line where instance ToMarkup Line where
toMarkup EmptyLine = td (string "") toMarkup EmptyLine = td (string "")