From e32657a6713dc113d511f409f0eb1a7570915d28 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 22 Nov 2017 14:53:19 +0300
Subject: [PATCH] Muse reader: fix reading of multiline definitions

---
 src/Text/Pandoc/Readers/Muse.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 760308d5d..2e4b58de7 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -467,8 +467,8 @@ definitionListItem = try $ do
   where
     termParser = (guardDisabled Ext_amuse <|> void spaceChar) >> -- Initial space is required by Amusewiki, but not Emacs Muse
                  many spaceChar >>
-                 many1Till anyChar (lookAhead (void (try (spaceChar >> string "::")) <|> void newline))
-    endOfInput = try $ skipMany blankline >> skipSpaces >> eof
+                 many1Till (noneOf "\n") (lookAhead (void (try (spaceChar >> string "::"))))
+    endOfInput = lookAhead $ try $ skipMany blankline >> skipSpaces >> eof
     twoBlankLines = try $ blankline >> skipMany1 blankline
     newDefinitionListItem = try $ void termParser
     endOfListItemElement = lookAhead $ endOfInput <|> newDefinitionListItem <|> twoBlankLines