diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-07-25 22:04:23 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-07-25 22:05:06 -0700 |
| commit | 9b5d2031c7d643de3397da2e4f38b2f6b45feb64 (patch) | |
| tree | 32fa78753fa540da081d45f5c1c62f26ef42f3f0 /src/Text/Pandoc/Readers | |
| parent | 2654da38237a981777ed57e4af64781e3773bf01 (diff) | |
| download | pandoc-9b5d2031c7d643de3397da2e4f38b2f6b45feb64.tar.gz | |
Restored stateStandalone as readerStandalone.
It is indeed needed by the RST reader.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 39da6de6a..11bcb7f0e 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -103,10 +103,13 @@ parseRST = do let reversedNotes = stateNotes st' updateState $ \s -> s { stateNotes = reverse reversedNotes } -- now parse it for real... - blocks <- parseBlocks + blocks <- parseBlocks let blocks' = filter (/= Null) blocks + standalone <- getOption readerStandalone + let (blocks'', title) = if standalone + then titleTransform blocks' + else (blocks', []) state <- getState - let (blocks'', title) = titleTransform blocks' let authors = stateAuthors state let date = stateDate state let title' = if (null title) then (stateTitle state) else title |