diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-07-11 15:52:38 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-11 15:54:21 -0700 |
commit | 7654db9df1b68926371da2a1f23db6df93056f44 (patch) | |
tree | 65e8dcc253e38c748c1dcb3f73747f432ca439ea /src/Text/Pandoc/Writers | |
parent | 05a5b4e3c2aa53fa9c12464791d3a4969b18daba (diff) | |
download | pandoc-7654db9df1b68926371da2a1f23db6df93056f44.tar.gz |
Markdown writer: don't use braced attributes for fenced code.
Removed `Ext_fenced_code_attributes` from `markdown_github`
extensions.
If this extension is not set, the first class attribute will
be printed after the opening fence as a bare word.
Closes #1416.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index a67271a5d..78500d498 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -405,8 +405,8 @@ blockToMarkdown opts (CodeBlock attribs str) = return $ attrs = if isEnabled Ext_fenced_code_attributes opts then nowrap $ " " <> attrsToMarkdown attribs else case attribs of - (_,[cls],_) -> " " <> text cls - _ -> empty + (_,(cls:_),_) -> " " <> text cls + _ -> empty blockToMarkdown opts (BlockQuote blocks) = do st <- get -- if we're writing literate haskell, put a space before the bird tracks |