From dc456afc6545cc06e9420646d31b43372a0c01e0 Mon Sep 17 00:00:00 2001 From: joshvera Date: Wed, 9 Dec 2015 11:25:38 -0500 Subject: [PATCH] add newline to the end of Row toMarkup --- src/Split.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Split.hs b/src/Split.hs index 8cb41ed97..a60953ad2 100644 --- a/src/Split.hs +++ b/src/Split.hs @@ -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 "")