Added a needed try to {} attribute parser.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1205 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 4 insertions, 4 deletions

diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs
index eee22859f..73b7e688a 100644
--- 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