diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 01:04:32 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 02:32:41 +0300 |
| commit | 75762ee0dc30e10befd1072a7ad182d92e4f5680 (patch) | |
| tree | 36113a6470fb1f8d09d3a18be8d3efc8898233de /src/Text | |
| parent | de6ae29be5b0752bb9e6eb2275e39f77507a8988 (diff) | |
Muse reader: simplify paragraph parsing
Blank lines are already handled by blockElements.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index b64d877b3..7b6da1174 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -332,9 +332,8 @@ para = do let f = if st /= ListItemState && indent >= 2 && indent < 6 then B.blockQuote else id fmap (f . B.para) . trimInlinesF . mconcat <$> many1Till inline endOfParaElement where - endOfParaElement = lookAhead $ endOfInput <|> newBlockElement - endOfInput = try $ skipMany blankline >> skipSpaces >> eof - newBlockElement = try $ blankline >> void blockElements + endOfParaElement = lookAhead $ try (eof <|> newBlockElement) + newBlockElement = blankline >> void blockElements noteMarker :: PandocMonad m => MuseParser m String noteMarker = try $ do |