1
1
mirror of https://github.com/github/semantic.git synced 2024-12-18 12:21:57 +03:00

add newline to the end of Row toMarkup

This commit is contained in:
joshvera 2015-12-09 11:25:38 -05:00
parent c67ff8f2e5
commit dc456afc65

View File

@ -68,7 +68,7 @@ data Row = Row Line Line
deriving (Show, Eq)
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
toMarkup EmptyLine = td (string "")