Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Text.Pandoc.Pretty: Improve performance of realLength

Browse source 
Eliminates memory usage and twofold increase in speed.
This commit is contained in:
Matthew Pickering 2014-12-06 22:58:40 +00:00
parent ad242131b9
commit 9761283c8f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Pretty.hs
View file

@ -534,4 +534,4 @@ charWidth c =
-- | Get real length of string, taking into account combining and double-wide -- | Get real length of string, taking into account combining and double-wide
-- characters. -- characters.
realLength :: String -> Int realLength :: String -> Int
realLength = sum . map charWidth realLength = foldr (\a b -> charWidth a + b) 0