diff options
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/GroffChar.hs | 6 | ||||
-rw-r--r-- | src/Text/Pandoc/Writers/Groff.hs | 4 |
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 |