summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-09-20 13:02:47 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-09-20 13:02:47 -0700
commit9b033672e4302501f11af21dc297a39a9d5960fc (patch)
treedf771caec195f8bcbbb4a16a5dbf54c713557a5c /src
parent54526665c39fe389ffaa202211e481fa9b692e76 (diff)
parent8007dd97b5d403f54c218a178573a818ab80c667 (diff)
Merge pull request #2406 from tarleb/org-verse-fix
Make sure verse blocks can contain empty lines
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Org.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs
index 55ac92bcb..388a8f880 100644
--- a/src/Text/Pandoc/Readers/Org.hs
+++ b/src/Text/Pandoc/Readers/Org.hs
@@ -409,7 +409,7 @@ verseBlock blkProp = try $ do
ignHeaders
content <- rawBlockContent blkProp
fmap B.para . mconcat . intersperse (pure B.linebreak)
- <$> mapM (parseFromString parseInlines) (lines content)
+ <$> mapM (parseFromString parseInlines) (map (++ "\n") . lines $ content)
exportsCode :: [(String, String)] -> Bool
exportsCode attrs = not (("rundoc-exports", "none") `elem` attrs