lib: credit pandoc for the charWidth function

2015-10-29 09:19:20 -07:00 · 2015-10-29 09:19:20 -07:00 · 76ab5df833
commit 76ab5df833
parent b48ee2d22e
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Utils/String.hs
+++ b/hledger-lib/Hledger/Utils/String.hs
@ -346,7 +346,7 @@ strWidth s = maximum $ map (foldr (\a b -> charWidth a + b) 0) $ lines s
 -- | Get the designated render width of a character: 0 for a combining
 -- character, 1 for a regular character, 2 for a wide character.
 -- (Wide characters are rendered as exactly double width in apps and
-- fonts that support it.)
+-- fonts that support it.) (From Pandoc.)
 charWidth :: Char -> Int
 charWidth c =
  case c of