diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-07-03 02:33:52 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-07-03 02:33:52 +0000 |
| commit | e5772330951afa6f8e874d56537953d90f95222b (patch) | |
| tree | 698514a0edd614b0e20f4536e35b41aa9ac6a9fc /src/Text/Pandoc | |
| parent | d3f4293725b9100824c49f6fa651febec2b18666 (diff) | |
| download | pandoc-e5772330951afa6f8e874d56537953d90f95222b.tar.gz | |
Allow -, _, :, . in markdown attribute names.
These are legal in XML attribute names.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1586 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 7e3b1afc3..ae682e72e 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -362,7 +362,7 @@ attribute = identifierAttr <|> classAttr <|> keyValAttr identifier :: GenParser Char st [Char] identifier = do first <- letter - rest <- many alphaNum + rest <- many $ alphaNum <|> oneOf "-_:." return (first:rest) identifierAttr :: GenParser Char st ([Char], [a], [a1]) |