s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

Remove underline/strikethrough when diffing

Browse Source
This commit is contained in:
Filip Gralinski 2020-10-15 22:30:36 +02:00
parent acedcef793
commit b1f05f76f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Data/Diff.hs
View File

@ -36,8 +36,8 @@ instance (Eq a, Show a) => Show (Diff a) where
instance (Eq a, ToMarkup a) => ToMarkup (Diff a) where instance (Eq a, ToMarkup a) => ToMarkup (Diff a) where
toMarkup d = presentDiff toMarkup 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:red;"))
(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:green;"))
d d
-- toMarkup (OneThing u) = toMarkup u -- toMarkup (OneThing u) = toMarkup u