@@ -181,9 +181,7 @@ parseMarkdown = do
181181-- parsing blocks
182182--
183183
184−parseBlocks = do
185− result <- manyTill block eof
186− return result
184+parseBlocks = manyTill block eof
187185
188186block = choice [ codeBlock, note, referenceKey, header, hrule, list,
189187 blockQuote, htmlBlock, rawLaTeXEnvironment', para,