Skip to content

Commit

Permalink
RST writer: Wrap line blocks with spaces before continuations.
Browse files Browse the repository at this point in the history
Improves on fix to #1656.
  • Loading branch information
jgm committed Sep 30, 2014
1 parent 29e1c95 commit 08ac338
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Text/Pandoc/Writers/RST.hs
Original file line number Diff line number Diff line change
Expand Up @@ -177,7 +177,7 @@ blockToRST (Para [Image txt (src,'f':'i':'g':':':tit)]) = do
blockToRST (Para inlines)
| LineBreak `elem` inlines = do -- use line block if LineBreaks
lns <- mapM inlineListToRST $ splitBy (==LineBreak) inlines
return $ (vcat $ map (nowrap . (text "| " <>)) lns) <> blankline
return $ (vcat $ map (hang 2 (text "| ")) lns) <> blankline
| otherwise = do
contents <- inlineListToRST inlines
return $ contents <> blankline
Expand Down

0 comments on commit 08ac338

Please sign in to comment.