From 16d43664318c0ccd84bdc0334ab8048df2fc0ec4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 23 Jan 2011 09:44:28 -0800
Subject: Textile writer: Don't escape code in bc. block.

---
 src/Text/Pandoc/Writers/Textile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

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 ++ ")"
-- 
cgit v1.2.3