Fixed spacing bugs involving code block attributes.

Closes #763.
This commit is contained in:
John MacFarlane 2013-03-11 20:45:27 -07:00
parent f7229b1473
commit 54782c2af6
2 changed files with 2 additions and 2 deletions

View file

@ -611,7 +611,7 @@ codeblock numberLines lang body =
kvs = case numberLines of kvs = case numberLines of
Just "" -> [] Just "" -> []
Nothing -> [] Nothing -> []
Just n -> [("startFrom",n)] Just n -> [("startFrom",trim n)]
--- ---
--- note block --- note block

View file

@ -328,7 +328,7 @@ blockToMarkdown opts (CodeBlock attribs str) = return $
| otherwise -> replicate (n+1) '~' | otherwise -> replicate (n+1) '~'
backticks = text "```" backticks = text "```"
attrs = if isEnabled Ext_fenced_code_attributes opts attrs = if isEnabled Ext_fenced_code_attributes opts
then attrsToMarkdown attribs then nowrap $ attrsToMarkdown attribs
else empty else empty
blockToMarkdown opts (BlockQuote blocks) = do blockToMarkdown opts (BlockQuote blocks) = do
st <- get st <- get