diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-23 09:44:28 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-23 09:44:28 -0800 |
| commit | 16d43664318c0ccd84bdc0334ab8048df2fc0ec4 (patch) | |
| tree | 53446ef5709d97336827f1056534b4b19b9b6339 /src/Text/Pandoc/Writers | |
| parent | 38013de8572ee9b6c9b5873d6f9e0bf6876215ed (diff) | |
| download | pandoc-16d43664318c0ccd84bdc0334ab8048df2fc0ec4.tar.gz | |
Textile writer: Don't escape code in bc. block.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Textile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs index f58d49483..0987e1314 100644 --- a/src/Text/Pandoc/Writers/Textile.hs +++ b/src/Text/Pandoc/Writers/Textile.hs @@ -126,7 +126,7 @@ blockToTextile _ (CodeBlock (_,classes,_) str) | any (all isSpace) (lines str) = else " class=\"" ++ unwords classes ++ "\"" blockToTextile _ (CodeBlock (_,classes,_) str) = - return $ "bc" ++ classes' ++ ". " ++ escapeStringForXML str ++ "\n" + return $ "bc" ++ classes' ++ ". " ++ str ++ "\n" where classes' = if null classes then "" else "(" ++ unwords classes ++ ")" |