diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Jira.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/Jira.hs | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Jira.hs b/src/Text/Pandoc/Readers/Jira.hs index cfe8ba81c..d6fa688e3 100644 --- a/src/Text/Pandoc/Readers/Jira.hs +++ b/src/Text/Pandoc/Readers/Jira.hs @@ -140,7 +140,7 @@ jiraToPandocInlines = \case fromStyle = \case Jira.Emphasis -> emph - Jira.Insert -> spanWith ("", ["inserted"], []) + Jira.Insert -> spanWith ("", ["underline"], []) Jira.Strikeout -> strikeout Jira.Strong -> strong Jira.Subscript -> subscript diff --git a/test/Tests/Readers/Jira.hs b/test/Tests/Readers/Jira.hs index 1ae3244ab..05fc9a3ab 100644 --- a/test/Tests/Readers/Jira.hs +++ b/test/Tests/Readers/Jira.hs @@ -126,6 +126,10 @@ tests = let attr = ("", [], [("align", "right"), ("vspace", "4")]) in para $ imageWith attr "image.gif" "Hello" mempty + , "inserted text" =: + "+the new version+" =?> + para (spanWith ("", ["underline"], []) "the new version") + , "HTML entity" =: "me & you" =?> para "me & you" |