diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Roff.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Roff.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Roff.hs b/src/Text/Pandoc/Writers/Roff.hs index 9dd8f8008..00b027cc9 100644 --- a/src/Text/Pandoc/Writers/Roff.hs +++ b/src/Text/Pandoc/Writers/Roff.hs @@ -90,7 +90,7 @@ escapeString e = Text.concat . escapeString' e . Text.unpack AllowUTF8 -> Text.singleton x : escapeString' escapeMode xs AsciiOnly -> let accents = catMaybes $ takeWhile isJust - (map (\c -> Map.lookup c combiningAccentsMap) xs) + (map (`Map.lookup` combiningAccentsMap) xs) rest = drop (length accents) xs s = case Map.lookup x characterCodeMap of Just t -> "\\[" <> Text.unwords (t:accents) <> "]" |