diff options
| author | Andrew Dunning <adunning@users.noreply.github.com> | 2015-07-08 13:57:04 -0400 |
|---|---|---|
| committer | Andrew Dunning <adunning@users.noreply.github.com> | 2015-07-08 13:57:04 -0400 |
| commit | 4850aaf046dacc942716b6827d2e82e9b310c284 (patch) | |
| tree | bc366aaf3b3837c1f66b9e104f1a08e2b7ca1d74 /src | |
| parent | 9e528f4c0ce47c3ae7d233ba9627d2ed3df60fd7 (diff) | |
Correct superscript/subscript.
Diffstat (limited to 'src')
| -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 ++ |