diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2014-12-06 22:58:40 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2014-12-06 22:58:40 +0000 |
commit | 9761283c8fd58fa04d9e04b45ef9a30325dc342e (patch) | |
tree | 2937992b32a6ba254d134c46f869a79dae7a18c0 /src/Text/Pandoc | |
parent | ad242131b9c9da653f3304f8bd5a791e6dca4ad8 (diff) | |
download | pandoc-9761283c8fd58fa04d9e04b45ef9a30325dc342e.tar.gz |
Text.Pandoc.Pretty: Improve performance of realLength
Eliminates memory usage and twofold increase in speed.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Pretty.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs index 9ee7fe94a..2f2656086 100644 --- a/src/Text/Pandoc/Pretty.hs +++ b/src/Text/Pandoc/Pretty.hs @@ -534,4 +534,4 @@ charWidth c = -- | Get real length of string, taking into account combining and double-wide -- characters. realLength :: String -> Int -realLength = sum . map charWidth +realLength = foldr (\a b -> charWidth a + b) 0 |