diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-19 14:17:59 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-19 14:17:59 +0300 |
| commit | ce4326a4f12180844532febf93261f098cd6c5aa (patch) | |
| tree | ba04db8115512a888acba087a02fc3f524c73a56 /src | |
| parent | bc9d296e5ae34f14cc03d7ca5e3b1f4295eac1d2 (diff) | |
| download | pandoc-ce4326a4f12180844532febf93261f098cd6c5aa.tar.gz | |
Muse reader: allow "-" in anchors
Diffstat (limited to 'src')
| -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 98c1a9d55..43c835edb 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -801,7 +801,7 @@ parseAnchor :: PandocMonad m => MuseParser m String parseAnchor = try $ do getPosition >>= \pos -> guard (sourceColumn pos == 1) char '#' - (:) <$> letter <*> many (letter <|> digit) + (:) <$> letter <*> many (letter <|> digit <|> char '-') anchor :: PandocMonad m => MuseParser m (F Inlines) anchor = try $ do |