@@ -191,8 +191,13 @@ blockToMarkdown opts (CodeBlock (_,classes,_) str) | "haskell" `elem` classes &&
191191blockToMarkdown opts (CodeBlock _ str) = return $
192192 (nest (writerTabStop opts) $ vcat $ map text (lines str)) <> text "\n"
193193blockToMarkdown opts (BlockQuote blocks) = do
194+ -- if we're writing literate haskell, put a space before the bird tracks
195+ -- so they won't be interpreted as lhs...
196+ let leader = if writerLiterateHaskell opts
197+ then text . (" > " ++)
198+ else text . ("> " ++)
194199 contents <- blockListToMarkdown opts blocks
195− return $ (vcat $ map (text . ("> " ++)) $ lines $ render contents) <>
200+ return $ (vcat $ map leader $ lines $ render contents) <>
196201 text "\n"
197202blockToMarkdown opts (Table caption aligns widths headers rows) = do
198203 caption' <- inlineListToMarkdown opts caption