aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-08-23 09:23:15 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2019-08-23 09:23:15 -0700
commit8e01ccb41dde8a5e6123f5b0746c36f240576047 (patch)
treeb52c91ceea8629640dbe744215c36bbc27149fae /src/Text/Pandoc
parent1c71bd1ff549737663ddf84e33276ddf8e926b39 (diff)
downloadpandoc-8e01ccb41dde8a5e6123f5b0746c36f240576047.tar.gz
RST reader: use title, not admonition-title, for admonition title.
This puts RST reader into alignment with docbook reader.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/RST.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 105d27088..8875fdebe 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -695,7 +695,7 @@ directive' = do
do bod <- parseFromString' parseBlocks $ top ++ "\n\n" ++ body'
let lab = case label of
"admonition" -> mempty
- (l:ls) -> B.divWith ("",["admonition-title"],[])
+ (l:ls) -> B.divWith ("",["title"],[])
(B.para (B.str (toUpper l : ls)))
[] -> mempty
return $ B.divWith (name,label:classes,keyvals) (lab <> bod)