Filtered search-related threads from "threads" output.

1 files changed, 9 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index d42ffa1a..d4216dae 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -455,15 +455,20 @@ clientSession s@Session{..} sock cnum h = do
                     unlines . map (either show show . either4or6) <$> externalAddresses
                         >>= hPutClient h
 #ifdef THREAD_DEBUG
-        ("threads", _) -> cmd0 $ do
-                    ts <- threadsInformation
+        ("threads", s) -> cmd0 $ do
+                    threads <- threadsInformation
                     tm <- getCurrentTime
-                    r <- forM ts $ \(tid,PerThread{..}) -> do
+                    let (ss,ts) = partition (("search" `isPrefixOf`) . lbl . snd)
+                                            threads
+                        want_ss = ["-v"] `isInfixOf` words s
+                    r <- forM (if want_ss then threads else ts) $ \(tid,PerThread{..}) -> do
                         stat <- threadStatus tid
                         let showStat (ThreadBlocked reason) = show reason
                             showStat stat                   = show stat
                         return [show lbl,show (diffUTCTime tm startTime),showStat stat]
-                    hPutClient h $ showColumns r
+                    hPutClient h $ unlines [ showColumns r
+                                           , (if want_ss then "  There are " else "  and ")
+                                             ++ show (length ss) ++ " search threads." ]
 #endif
         ("mem", s) -> cmd0 $ do
                     case s of