From 3e062b5a2191967132a1ec5718207631c5fc4adf Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 14 Apr 2012 17:59:40 -0700
Subject: Support superscript, subscript tags in docbook reader.

---
 src/Text/Pandoc/Readers/DocBook.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Text/Pandoc/Readers')

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
-- 
cgit v1.2.3