From b5df5fb5f0048a27154a62402495a765477be6f9 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 17 Oct 2018 13:11:00 -0700
Subject: [PATCH] lib: comment

---
 hledger-lib/Hledger/Utils/Debug.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Utils/Debug.hs b/hledger-lib/Hledger/Utils/Debug.hs
index 4c3e2b432..131b40445 100644
--- a/hledger-lib/Hledger/Utils/Debug.hs
+++ b/hledger-lib/Hledger/Utils/Debug.hs
@@ -199,8 +199,8 @@ plog = plogAt 0
 -- | Log a message and a pretty-printed showable value to ./debug.log, 
 -- if the global debug level is at or above the specified level.
 -- At level 0, always logs. Otherwise, uses unsafePerformIO.
--- XXX Can fail due to log file contention if called multiple times
--- ("*** Exception: debug.log: openFile: resource busy (file is locked)").
+-- Tends to fail if called more than once, at least when built with -threaded
+-- (Exception: debug.log: openFile: resource busy (file is locked)).
 plogAt :: Show a => Int -> String -> a -> a
 plogAt lvl
     | lvl > 0 && debugLevel < lvl = flip const