From b1561d8e470a4b9ecc681d4749093fa14cb1bd37 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 22 Jun 2020 17:55:14 -0700 Subject: Use native Underline instead of Span in Jira --- test/Tests/Readers/Jira.hs | 2 +- test/Tests/Writers/Jira.hs | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'test') diff --git a/test/Tests/Readers/Jira.hs b/test/Tests/Readers/Jira.hs index 30f55585b..32b8ecb7c 100644 --- a/test/Tests/Readers/Jira.hs +++ b/test/Tests/Readers/Jira.hs @@ -172,7 +172,7 @@ tests = , "inserted text" =: "+the new version+" =?> - para (spanWith ("", ["underline"], []) "the new version") + para (underline "the new version") , "HTML entity" =: "me & you" =?> para "me & you" diff --git a/test/Tests/Writers/Jira.hs b/test/Tests/Writers/Jira.hs index 57ed27360..93d830c94 100644 --- a/test/Tests/Writers/Jira.hs +++ b/test/Tests/Writers/Jira.hs @@ -20,8 +20,7 @@ tests :: [TestTree] tests = [ testGroup "inlines" [ "underlined text" =: - spanWith ("ignored", ["ignored", "underline"], [("foo", "bar")]) - "underlined text" =?> + underline "underlined text" =?> "+underlined text+" , "image with attributes" =: -- cgit v1.2.3