From e5772330951afa6f8e874d56537953d90f95222b Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Fri, 3 Jul 2009 02:33:52 +0000
Subject: 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
---
 src/Text/Pandoc/Readers/Markdown.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

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])
-- 
cgit v1.2.3