From f78801aa20b06b63d3c6d3d336caf85ce3614d9e Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 14 Apr 2012 21:55:14 -0700
Subject: Implemented literal tag in docbook reader.

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

diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index a4f0ee9c4..cfd7a6e58 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -106,6 +106,7 @@ parseInline (Elem e) =
             return $ if qt == SingleQuote
                         then singleQuoted contents
                         else doubleQuoted contents
+        "literal" -> return $ code $ strContent e -- TODO attrs
         "ulink" -> link
             (fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
               (elAttribs e))) "" <$> innerInlines
-- 
cgit v1.2.3