diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-24 02:37:35 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-24 02:38:10 +0300 |
| commit | 39dd7c794bc881acd2030c07ddfb7b34842f19a3 (patch) | |
| tree | 9d515a309452ca4014d2efed67170e098766afea /src/Text/Pandoc | |
| parent | 6de2c0710f2586e4925690583df07d50ce167725 (diff) | |
| download | pandoc-39dd7c794bc881acd2030c07ddfb7b34842f19a3.tar.gz | |
Muse reader: allow single colon in definition list term
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 1fb37aa16..26da57883 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -625,7 +625,7 @@ definitionListItemsUntil indent end = where continuation = try $ do pos <- getPosition - term <- trimInlinesF . mconcat <$> manyTill (choice inlineList) (string "::") + term <- trimInlinesF . mconcat <$> manyTill (choice inlineList) (try $ string "::") (x, e) <- descriptionsUntil (sourceColumn pos) ((Right <$> try (optional blankline >> indentWith indent >> continuation)) <|> (Left <$> end)) let xx = do term' <- term |