aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-04-02 17:04:55 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-04-02 17:07:18 -0700
commit935d10769df682fa08d947a873ca7665136e0b79 (patch)
treef6d4453f5496eb14e0b10eed53a75b30bde01d32 /src/Text
parent4371223d132ef822cff0ddee6099a5fe295385cb (diff)
downloadpandoc-935d10769df682fa08d947a873ca7665136e0b79.tar.gz
Fix "phrase" in DocBook: take classes from "role" not "class".
Closes #7195. Revises #6438.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index 4f525cfb1..ac3caa2c0 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -1075,7 +1075,7 @@ parseInline (Elem e) =
return $ spanWith (attrValue "id" e, [], []) mempty
"phrase" -> do
let ident = attrValue "id" e
- let classes = T.words $ attrValue "class" e
+ let classes = T.words $ attrValue "role" e
if ident /= "" || classes /= []
then innerInlines (spanWith (ident,classes,[]))
else innerInlines id