diff options
author | John MacFarlane <jgm@berkeley.edu> | 2015-07-08 11:20:56 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2015-07-08 11:20:56 -0700 |
commit | 4667f92987b2b38f881a1515da6086eb82de7ba2 (patch) | |
tree | bc366aaf3b3837c1f66b9e104f1a08e2b7ca1d74 /src/Text/Pandoc/Writers/CommonMark.hs | |
parent | 9e528f4c0ce47c3ae7d233ba9627d2ed3df60fd7 (diff) | |
parent | 4850aaf046dacc942716b6827d2e82e9b310c284 (diff) | |
download | pandoc-4667f92987b2b38f881a1515da6086eb82de7ba2.tar.gz |
Merge pull request #2282 from adunning/patch-1
CommonMark Writer: Correct tags used for superscript/subscript
Diffstat (limited to 'src/Text/Pandoc/Writers/CommonMark.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/CommonMark.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/CommonMark.hs b/src/Text/Pandoc/Writers/CommonMark.hs index 706b27175..61ac0fdba 100644 --- a/src/Text/Pandoc/Writers/CommonMark.hs +++ b/src/Text/Pandoc/Writers/CommonMark.hs @@ -144,11 +144,11 @@ inlineToNodes (Strikeout xs) = ((node (INLINE_HTML (T.pack "<s>")) [] : inlinesToNodes xs ++ [node (INLINE_HTML (T.pack "</s>")) []]) ++ ) inlineToNodes (Superscript xs) = - ((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++ - [node (INLINE_HTML (T.pack "</sub>")) []]) ++ ) -inlineToNodes (Subscript xs) = ((node (INLINE_HTML (T.pack "<sup>")) [] : inlinesToNodes xs ++ [node (INLINE_HTML (T.pack "</sup>")) []]) ++ ) +inlineToNodes (Subscript xs) = + ((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++ + [node (INLINE_HTML (T.pack "</sub>")) []]) ++ ) inlineToNodes (SmallCaps xs) = ((node (INLINE_HTML (T.pack "<span style=\"font-variant:small-caps;\">")) [] : inlinesToNodes xs ++ |