From 24f22ee7ac93c4523f54d3ac791a35f68af38362 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 9 Feb 2008 03:19:10 +0000
Subject: Added a needed try to {} attribute parser.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1205 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Readers/Markdown.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Text/Pandoc/Readers/Markdown.hs')

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