From 8b204dda775f0767056fefe5b18ac4a064b914c4 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 22 Oct 2018 23:46:28 -0700 Subject: T.P.Writers.Groff - don't export escapeChar. --- src/Text/Pandoc/Writers/Groff.hs | 1 - src/Text/Pandoc/Writers/Ms.hs | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/Groff.hs b/src/Text/Pandoc/Writers/Groff.hs index a3b81d138..b7f039cc8 100644 --- a/src/Text/Pandoc/Writers/Groff.hs +++ b/src/Text/Pandoc/Writers/Groff.hs @@ -34,7 +34,6 @@ module Text.Pandoc.Writers.Groff ( , defaultWriterState , MS , Note - , escapeChar , escapeString , escapeCode , withFontFeature diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index ec7f9bf33..e077e9ed9 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -125,7 +125,7 @@ toSmallCaps opts (c:cs) "\\s0" ++ toSmallCaps opts rest | isUpper c = let (uppers,rest) = span isUpper (c:cs) in escString opts uppers ++ toSmallCaps opts rest - | otherwise = escapeChar (writerPreferAscii opts) c ++ toSmallCaps opts cs + | otherwise = escapeString (writerPreferAscii opts) [c] ++ toSmallCaps opts cs -- We split inline lists into sentences, and print one sentence per -- line. groff/troff treats the line-ending period differently. -- cgit v1.2.3