From b1f05f76f46ee706a44c48c520c66952faf4d888 Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Thu, 15 Oct 2020 22:30:36 +0200 Subject: [PATCH] Remove underline/strikethrough when diffing --- Data/Diff.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/Diff.hs b/Data/Diff.hs index 9ab5b93..86f7d94 100644 --- a/Data/Diff.hs +++ b/Data/Diff.hs @@ -36,8 +36,8 @@ instance (Eq a, Show a) => Show (Diff a) where instance (Eq a, ToMarkup a) => ToMarkup (Diff a) where toMarkup d = presentDiff toMarkup - (Text.Blaze.Html4.Strict.span ! (Text.Blaze.Html4.Strict.Attributes.style "color:red;text-decoration: line-through;")) - (Text.Blaze.Html4.Strict.span ! (Text.Blaze.Html4.Strict.Attributes.style "color:green;text-decoration: underline;")) + (Text.Blaze.Html4.Strict.span ! (Text.Blaze.Html4.Strict.Attributes.style "color:red;")) + (Text.Blaze.Html4.Strict.span ! (Text.Blaze.Html4.Strict.Attributes.style "color:green;")) d -- toMarkup (OneThing u) = toMarkup u