From 76ab5df833099134ba3a70de71e56ef6b19823b1 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 29 Oct 2015 09:19:20 -0700
Subject: [PATCH] lib: credit pandoc for the charWidth function

---
 hledger-lib/Hledger/Utils/String.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Utils/String.hs b/hledger-lib/Hledger/Utils/String.hs
index 2647b63b0..dcfba2309 100644
--- 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