diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 02:59:06 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 03:18:29 +0300 |
| commit | 248f6076bc1df7f3dd55d7402707233ae08d3cdb (patch) | |
| tree | b629afda755361383e33f143abdda796e77e6271 /src/Text | |
| parent | 75762ee0dc30e10befd1072a7ad182d92e4f5680 (diff) | |
| download | pandoc-248f6076bc1df7f3dd55d7402707233ae08d3cdb.tar.gz | |
Muse reader: fix parsing of trailing whitespace
Newline after whitespace now results in softbreak
instead of space.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 7b6da1174..f4aca92d0 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -592,7 +592,7 @@ inlineList = [ whitespace ] inline :: PandocMonad m => MuseParser m (F Inlines) -inline = choice [endline, linebreak] <|> choice inlineList <?> "inline" +inline = endline <|> choice inlineList <?> "inline" endline :: PandocMonad m => MuseParser m (F Inlines) endline = try $ do @@ -626,13 +626,6 @@ footnote = try $ do let contents' = runF contents st { stateNotes' = M.empty } return $ B.note contents' -linebreak :: PandocMonad m => MuseParser m (F Inlines) -linebreak = try $ do - skipMany spaceChar - newline - notFollowedBy newline - return $ return B.space - whitespace :: PandocMonad m => MuseParser m (F Inlines) whitespace = try $ do skipMany1 spaceChar |