diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Jira.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/Jira.hs | 5 |
2 files changed, 2 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Jira.hs b/src/Text/Pandoc/Readers/Jira.hs index fd96cbc4d..9266ce10d 100644 --- a/src/Text/Pandoc/Readers/Jira.hs +++ b/src/Text/Pandoc/Readers/Jira.hs @@ -141,7 +141,7 @@ jiraToPandocInlines = \case fromStyle = \case Jira.Emphasis -> emph - Jira.Insert -> spanWith ("", ["underline"], []) + Jira.Insert -> underline Jira.Strikeout -> strikeout Jira.Strong -> strong Jira.Subscript -> subscript diff --git a/src/Text/Pandoc/Writers/Jira.hs b/src/Text/Pandoc/Writers/Jira.hs index 29f260b5c..12348f62b 100644 --- a/src/Text/Pandoc/Writers/Jira.hs +++ b/src/Text/Pandoc/Writers/Jira.hs @@ -290,10 +290,7 @@ quotedToJira qtype xs = do spanToJira :: PandocMonad m => Attr -> [Inline] -> JiraConverter m [Jira.Inline] -spanToJira (_, classes, _) = - if "underline" `elem` classes - then styled Jira.Insert - else toJiraInlines +spanToJira (_, _classes, _) = toJiraInlines registerNotes :: PandocMonad m => [Block] -> JiraConverter m [Jira.Inline] registerNotes contents = do |