From cf82488820224a1d43487984762c990260f669cf Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 22 Dec 2015 15:29:16 -0500 Subject: [PATCH] =?UTF-8?q?codeTd=20takes=20a=20=E2=80=9Chas=20changes?= =?UTF-8?q?=E2=80=9D=20flag=20again.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit We always pass `False` currently. --- src/Split.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Split.hs b/src/Split.hs index 1191af80c..2997bcdea 100644 --- a/src/Split.hs +++ b/src/Split.hs @@ -102,14 +102,14 @@ numberTd :: String -> Html numberTd "" = td mempty ! A.class_ (stringValue "blob-num blob-num-empty empty-cell") numberTd s = td (string s) ! A.class_ (stringValue "blob-num") -codeTd :: Maybe Html -> Html -codeTd Nothing = td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell") --- codeTd True (Just el) = td el ! A.class_ (stringValue "blob-code blob-code-replacement") -codeTd (Just el) = td el ! A.class_ (stringValue "blob-code") +codeTd :: Bool -> Maybe Html -> Html +codeTd _ Nothing = td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell") +codeTd True (Just el) = td el ! A.class_ (stringValue "blob-code blob-code-replacement") +codeTd False (Just el) = td el ! A.class_ (stringValue "blob-code") instance ToMarkup a => ToMarkup (Line a) where - toMarkup EmptyLine = codeTd Nothing - toMarkup (Line contents) = codeTd . Just . mconcat $ toMarkup <$> contents + toMarkup EmptyLine = codeTd False Nothing + toMarkup (Line contents) = codeTd False . Just . mconcat $ toMarkup <$> contents data Line a = Line [a]