1 files changed, 2 insertions, 1 deletions

diff --git a/dht/src/DebugUtil.hs b/dht/src/DebugUtil.hs
index e7a10397..96ab8cc5 100644
--- a/dht/src/DebugUtil.hs
+++ b/dht/src/DebugUtil.hs
@@ -25,7 +25,8 @@ showColumns rows = do
     "  " ++ concat (zipWith (printf "%-*s") (init ws) (init fs)) ++ last fs ++ "\n"
 
 
-threadReport :: Bool -> IO String
+threadReport :: Bool -- ^ False to summarize search threads.
+                -> IO String
 threadReport want_ss = do
     threads <- threadsInformation
     tm <- getCurrentTime