From 422bba202ef6731f0487880f08200f5dc9d6bbb0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 24 Jan 2011 22:25:17 -0800
Subject: [PATCH] RST reader: Include line breaks in raw field list parser
output.
Note: field list items can have lists, etc. as values.
---
src/Text/Pandoc/Readers/RST.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index fee932f2b..371cbc0f3 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -152,7 +152,9 @@ fieldListItem indent = try $ do
first <- manyTill anyChar newline
rest <- option "" $ try $ lookAhead (string indent >> spaceChar) >>
indentedBlock
- return (name, intercalate " " (first:(lines rest)))
+ return (name, first ++ if null rest
+ then ""
+ else ("\n" ++ rest))
fieldList :: GenParser Char ParserState Block
fieldList = try $ do