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

Pretty: simplified definition of realLength.

Browse source
This commit is contained in:
John MacFarlane 2017-02-23 09:54:31 +01:00
parent 9614835ea7
commit 86d8e1ef89
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

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