aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/GroffChar.hs6
-rw-r--r--src/Text/Pandoc/Writers/Groff.hs4
2 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/GroffChar.hs b/src/Text/Pandoc/GroffChar.hs
index efb3cf11a..6d2eff98b 100644
--- a/src/Text/Pandoc/GroffChar.hs
+++ b/src/Text/Pandoc/GroffChar.hs
@@ -31,15 +31,15 @@ Groff character escaping/unescaping.
-}
module Text.Pandoc.GroffChar (
- manEscapes
+ standardEscapes
, characterCodes
, combiningAccents
) where
import Prelude
-- | These are the escapes specifically mentioned in groff_man(7).
-manEscapes :: [(Char, String)]
-manEscapes =
+standardEscapes :: [(Char, String)]
+standardEscapes =
[ ('\160', "\\ ")
, ('\'', "\\[aq]")
, ('‘', "\\[oq]")
diff --git a/src/Text/Pandoc/Writers/Groff.hs b/src/Text/Pandoc/Writers/Groff.hs
index b0e8d3d06..5d51314bb 100644
--- a/src/Text/Pandoc/Writers/Groff.hs
+++ b/src/Text/Pandoc/Writers/Groff.hs
@@ -47,7 +47,7 @@ import Text.Pandoc.Class (PandocMonad)
import Text.Pandoc.Definition
import Text.Pandoc.Pretty
import Text.Printf (printf)
-import Text.Pandoc.GroffChar (manEscapes,
+import Text.Pandoc.GroffChar (standardEscapes,
characterCodes, combiningAccents)
data WriterState = WriterState { stHasInlineMath :: Bool
@@ -87,7 +87,7 @@ combiningAccentsMap :: Map.Map Char String
combiningAccentsMap = Map.fromList combiningAccents
essentialEscapes :: Map.Map Char String
-essentialEscapes = Map.fromList manEscapes
+essentialEscapes = Map.fromList standardEscapes
-- | Escape special characters for groff.
escapeString :: EscapeMode -> String -> String