From 13e0ac1104cc77f15e85fea83f54b6d6ae65271d Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 15 Oct 2019 00:56:28 +0300
Subject: Muse reader: do not terminate emphasis on "*" not followed by space

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

(limited to 'src/Text/Pandoc/Readers/Muse.hs')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index b7a1ce7ad..104fa914f 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -807,8 +807,7 @@ emphasisBetween p = try $ trimInlinesF . mconcat
   <$  atStart
   <*  p
   <*  notFollowedBy space
-  <*> many1Till inline (try $ noSpaceBefore *> p)
-  <*  notFollowedBy alphaNum
+  <*> many1Till inline (try $ noSpaceBefore *> p <* notFollowedBy alphaNum)
 
 -- | Parse an inline tag, such as @\<em>@ and @\<strong>@.
 inlineTag :: PandocMonad m
-- 
cgit v1.2.3