diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-04-02 17:04:55 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-04-02 17:07:18 -0700 |
| commit | 935d10769df682fa08d947a873ca7665136e0b79 (patch) | |
| tree | f6d4453f5496eb14e0b10eed53a75b30bde01d32 | |
| parent | 4371223d132ef822cff0ddee6099a5fe295385cb (diff) | |
| download | pandoc-935d10769df682fa08d947a873ca7665136e0b79.tar.gz | |
Fix "phrase" in DocBook: take classes from "role" not "class".
Closes #7195. Revises #6438.
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 2 |
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 |