Fixed spacing bugs involving code block attributes.

Closes #763.
jgm · Mar 12, 2013 · 54782c2 · 54782c2
1 parent f7229b1
commit 54782c2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
@@ -611,7 +611,7 @@ codeblock numberLines lang body =
           kvs     = case numberLines of
                           Just "" -> []
                           Nothing -> []
-                          Just n  -> [("startFrom",n)]
+                          Just n  -> [("startFrom",trim n)]
 
 ---
 --- note block

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
@@ -328,7 +328,7 @@ blockToMarkdown opts (CodeBlock attribs str) = return $
                                             | otherwise -> replicate (n+1) '~'
          backticks = text "```"
          attrs  = if isEnabled Ext_fenced_code_attributes opts
-                     then attrsToMarkdown attribs
+                     then nowrap $ attrsToMarkdown attribs
                      else empty
 blockToMarkdown opts (BlockQuote blocks) = do
   st <- get