Added a needed try to {} attribute parser.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1205 788f1e2b-df1e-0410-8736-df70ead52e1b
2008-02-09 03:19:10 +00:00 · 2008-02-09 03:19:10 +00:00 · 24f22ee7ac
commit 24f22ee7ac
parent 046c6b0d0d
1 changed files with 4 additions and 4 deletions
--- a/Text/Pandoc/Readers/Markdown.hs
+++ b/Text/Pandoc/Readers/Markdown.hs
@ -310,10 +310,10 @@ codeBlockDelimiter len = try $ do
 classAttributes = try $ do
  char '{'
  many spaceChar
-  attrs <- many $ do char '.'
-                     attr <- many1 alphaNum
-                     many spaceChar
-                     return attr
+  attrs <- many $ try $  do char '.'
+                            attr <- many1 alphaNum
+                            many spaceChar
+                            return attr
  char '}'
  return $ unwords attrs