@@ -91,8 +91,8 @@ notesToMarkdown opts notes =
9191
9292-- | Return markdown representation of a note.
9393noteToMarkdown :: WriterOptions -> Int -> [Block] -> State WriterState Doc
94−noteToMarkdown opts num note = do
95− contents <- blockListToMarkdown opts note
94+noteToMarkdown opts num blocks = do
95+ contents <- blockListToMarkdown opts blocks
9696 let marker = text "[^" <> text (show num) <> text "]:"
9797 return $ hang marker (writerTabStop opts) contents
9898
@@ -163,8 +163,8 @@ blockToMarkdown opts (CodeBlock str) = return $
163163 (nest (writerTabStop opts) $ vcat $ map text (lines str)) <> text "\n"
164164blockToMarkdown opts (BlockQuote blocks) = do
165165 contents <- blockListToMarkdown opts blocks
166− let quotedContents = unlines $ map ("> " ++) $ lines $ render contents
167− return $ text quotedContents
166+ return $ (vcat $ map (text . ("> " ++)) $ lines $ render contents) <>
167+ text "\n"
168168blockToMarkdown opts (Table caption aligns widths headers rows) = do
169169 caption' <- inlineListToMarkdown opts caption
170170 let caption'' = if null caption