diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2019-10-15 00:56:28 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2019-10-15 01:02:54 +0300 |
| commit | 13e0ac1104cc77f15e85fea83f54b6d6ae65271d (patch) | |
| tree | a4f4eb3692364705f6b9db479ba3244e157970c6 /src/Text/Pandoc/Readers/Muse.hs | |
| parent | d8d784ab5475916c8b2d57232c4bc2f49a964045 (diff) | |
| download | pandoc-13e0ac1104cc77f15e85fea83f54b6d6ae65271d.tar.gz | |
Muse reader: do not terminate emphasis on "*" not followed by space
Diffstat (limited to 'src/Text/Pandoc/Readers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |