@@ -191,8 +191,13 @@ blockToMarkdown opts (CodeBlock (_,classes,_) str) | "haskell" `elem` classes &&
191blockToMarkdown opts (CodeBlock _ str) = return $
191blockToMarkdown opts (CodeBlock _ str) = return $
192 (nest (writerTabStop opts) $ vcat $ map text (lines str)) <> text "\n"
192 (nest (writerTabStop opts) $ vcat $ map text (lines str)) <> text "\n"
193blockToMarkdown opts (BlockQuote blocks) = do
193blockToMarkdown 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 . ("> " ++)
194 contents <- blockListToMarkdown opts blocks
199 contents <- blockListToMarkdown opts blocks
195− return $ (vcat $ map (text . ("> " ++)) $ lines $ render contents) <>
200+ return $ (vcat $ map leader $ lines $ render contents) <>
196 text "\n"
201 text "\n"
197blockToMarkdown opts (Table caption aligns widths headers rows) = do
202blockToMarkdown opts (Table caption aligns widths headers rows) = do
198 caption' <- inlineListToMarkdown opts caption
203 caption' <- inlineListToMarkdown opts caption