Muse reader: fix parsing of trailing whitespace

Newline after whitespace now results in softbreak
instead of space.

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