From 98e5b6170383882f948c53a461059ac213d9fab3 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 28 Jan 2012 13:12:52 -0800 Subject: Removed an unnecessary `many spaceChar`. --- src/Text/Pandoc/Readers/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 47419defe..c78727715 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -382,7 +382,7 @@ blockDelimiter f len = try $ do return . (+ 3) . length many spaceChar attr <- option ([],[],[]) - $ (try $ many spaceChar >> attributes) -- ~~~ {.ruby} + $ attributes -- ~~~ {.ruby} <|> (many1 alphaNum >>= \x -> return ([],[x],[])) -- github variant ```ruby blankline return (size, attr, c) -- cgit v1.2.3