diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-28 13:12:52 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-28 13:12:52 -0800 |
| commit | 98e5b6170383882f948c53a461059ac213d9fab3 (patch) | |
| tree | c7b3bf8fc8b70fea65c68235ef9231203c876edd /src/Text/Pandoc | |
| parent | 35185585171518cd39201d0c522ae80de4574d28 (diff) | |
| download | pandoc-98e5b6170383882f948c53a461059ac213d9fab3.tar.gz | |
Removed an unnecessary `many spaceChar`.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |