diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-14 21:55:14 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-14 21:55:14 -0700 |
| commit | f78801aa20b06b63d3c6d3d336caf85ce3614d9e (patch) | |
| tree | 9a1854e9399450500cf93798f48c1c862b4a6cf1 /src/Text/Pandoc/Readers/DocBook.hs | |
| parent | e5c4d7002eb5b9c73211186f5f15a82c2731fe31 (diff) | |
| download | pandoc-f78801aa20b06b63d3c6d3d336caf85ce3614d9e.tar.gz | |
Implemented literal tag in docbook reader.
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |