diff options
| author | John MacFarlane <[email protected]> | 2023-11-13 15:05:18 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-11-13 15:05:43 -0800 |
| commit | 7db44d77b234f1922dfa5f05ac6387c5d1eaec41 (patch) | |
| tree | 509b5a26d6c8237d66264c5aecab43789e0bba05 /src | |
| parent | 9fbdd95f3dd12ba6432bba7e3480aa7af4c622e4 (diff) | |
MediaWiki reader: allow attribute keys with hyphens.
Closes #9178.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 9f3aa24a6..52be31328 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -245,7 +245,9 @@ parseAttrs = many1 parseAttr parseAttr :: PandocMonad m => MWParser m (Text, Text) parseAttr = try $ do skipMany spaceChar - k <- many1Char letter + kFirst <- letter + kRest <- many (alphaNum <|> oneOf "_-:.") + let k = T.pack (kFirst : kRest) skipMany spaceChar char '=' skipMany spaceChar |