Added a needed try to {} attribute parser.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1205 788f1e2b-df1e-0410-8736-df70ead52e1b
commit24f22ee7ac93c4523f54d3ac791a35f68af38362
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateSat 9 Feb 2008, 03:19 (19 years ago)
parent046c6b0
Text/Pandoc/Readers/Markdown.hs+4−4
@@ -310,10 +310,10 @@ codeBlockDelimiter len = try $ do
310310classAttributes = try $ do
311311 char '{'
312312 many spaceChar
313− attrs <- many $ do char '.'
314− attr <- many1 alphaNum
315− many spaceChar
316− return attr
313+ attrs <- many $ try $ do char '.'
314+ attr <- many1 alphaNum
315+ many spaceChar
316+ return attr
317317 char '}'
318318 return $ unwords attrs
319319