@@ -181,9 +181,7 @@ parseMarkdown = do
181-- parsing blocks
181-- parsing blocks
185− result <- manyTill block eof
184+parseBlocks = manyTill block eof
188block = choice [ codeBlock, note, referenceKey, header, hrule, list,
186block = choice [ codeBlock, note, referenceKey, header, hrule, list,
189 blockQuote, htmlBlock, rawLaTeXEnvironment', para,
187 blockQuote, htmlBlock, rawLaTeXEnvironment', para,