diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index bda27f0f2..f05a29157 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -47,7 +47,8 @@ authorToDocbook opts name' = do let colwidth = if writerWrapText opts == WrapAuto then Just $ writerColumns opts else Nothing - return $ B.rawInline "docbook" $ render colwidth $ + return $ B.rawInline "docbook" $ + render colwidth $ inTags True "personname" [] $ if T.any (== ',') name then -- last name first let (lastname, rest) = T.break (==',') name |