From 2fd7da07d4f044364609f42d8b8f799340960923 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 10 Aug 2008 22:24:57 +0000
Subject: [PATCH] Man writer: don't escape " as \".
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1399 788f1e2b-df1e-0410-8736-df70ead52e1b
---
Text/Pandoc/Writers/Man.hs | 2 +-
tests/writer.man | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/Text/Pandoc/Writers/Man.hs b/Text/Pandoc/Writers/Man.hs
index f83436b31..9037c24af 100644
--- a/Text/Pandoc/Writers/Man.hs
+++ b/Text/Pandoc/Writers/Man.hs
@@ -100,7 +100,7 @@ noteToMan opts num note = do
-- | Association list of characters to escape.
manEscapes :: [(Char, String)]
-manEscapes = [('\160', "\\ "), ('\'', "\\[aq]")] ++ backslashEscapes "\".@\\"
+manEscapes = [('\160', "\\ "), ('\'', "\\[aq]")] ++ backslashEscapes ".@\\"
-- | Escape special characters for Man.
escapeString :: String -> String
diff --git a/tests/writer.man b/tests/writer.man
index d1a8b8a86..e855aa807 100644
--- a/tests/writer.man
+++ b/tests/writer.man
@@ -49,7 +49,7 @@ Code in a block quote:
.PP
\f[CR]
sub\ status\ {
- \ \ \ \ print\ \"working\";
+ \ \ \ \ print\ "working";
}
\f[]
.PP
@@ -83,7 +83,7 @@ Code:
----\ (should\ be\ four\ hyphens)
sub\ status\ {
- \ \ \ \ print\ \"working\";
+ \ \ \ \ print\ "working";
}
this\ code\ block\ is\ indented\ by\ one\ tab