From 91bf531af9c2423bb9d970973ca286b93eadaad3 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 22 Dec 2015 18:23:34 -0500 Subject: [PATCH] Mark up empty code cells directly. --- src/Line.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Line.hs b/src/Line.hs index 61f67dc45..e34e8ced8 100644 --- a/src/Line.hs +++ b/src/Line.hs @@ -39,7 +39,7 @@ instance Monoid (Line a) where mappend (Line xs) (Line ys) = Line (xs <> ys) instance ToMarkup a => ToMarkup (Bool, Int, Line a) where - toMarkup (_, _, line@EmptyLine) = td mempty ! A.class_ (stringValue "blob-num blob-num-empty empty-cell") <> toMarkup line <> string "\n" + toMarkup (_, _, EmptyLine) = td mempty ! A.class_ (stringValue "blob-num blob-num-empty empty-cell") <> td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell") <> string "\n" toMarkup (hasChanges, num, Line contents) = td (string $ show num) ! A.class_ (stringValue $ if hasChanges then "blob-num blob-num-replacement" else "blob-num") <> td (mconcat $ toMarkup <$> contents) ! A.class_ (stringValue $ if hasChanges then "blob-code blob-code-replacement" else "blob-code") <> string "\n"