diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-09 03:19:10 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-09 03:19:10 +0000 |
commit | 24f22ee7ac93c4523f54d3ac791a35f68af38362 (patch) | |
tree | 3a88312e35a5708f5106718fb503f13af51eada3 /Text/Pandoc | |
parent | 046c6b0d0dc33cabaeca294d1cbd39fd4de42ff4 (diff) | |
download | pandoc-24f22ee7ac93c4523f54d3ac791a35f68af38362.tar.gz |
Added a needed try to {} attribute parser.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1205 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc')
-rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 8 |
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 |