aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-04-14 17:59:40 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-04-14 17:59:40 -0700
commit3e062b5a2191967132a1ec5718207631c5fc4adf (patch)
treee25b9dc33e8bf9c63036235f444fc0d91c3b19aa /src
parentfe5704bebc91428013cef306f33e7c98e4ac43be (diff)
downloadpandoc-3e062b5a2191967132a1ec5718207631c5fc4adf.tar.gz
Support superscript, subscript tags in docbook reader.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index 432daeeea..28867adbe 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -62,6 +62,8 @@ parseInline :: Content -> DB Inlines
parseInline (Text (CData _ s _)) = return $ text s
parseInline (Elem e) =
case qName (elName e) of
+ "subscript" -> subscript <$> innerInlines
+ "superscript" -> superscript <$> innerInlines
"emphasis" -> case lookupAttrBy (\attr -> qName attr == "role")
(elAttribs e) of
Just "strong" -> strong <$> innerInlines