aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-04-19 14:17:59 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-04-19 14:17:59 +0300
commitce4326a4f12180844532febf93261f098cd6c5aa (patch)
treeba04db8115512a888acba087a02fc3f524c73a56 /src/Text
parentbc9d296e5ae34f14cc03d7ca5e3b1f4295eac1d2 (diff)
downloadpandoc-ce4326a4f12180844532febf93261f098cd6c5aa.tar.gz
Muse reader: allow "-" in anchors
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs2
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