Thread report in test program.

1 files changed, 9 insertions, 2 deletions

diff --git a/examples/testTox.hs b/examples/testTox.hs
index 45bc661e..53ed25dc 100644
--- a/examples/testTox.hs
+++ b/examples/testTox.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE NamedFieldPuns #-}
+import Control.Concurrent (threadDelay)
 import Control.Concurrent.STM.TChan
 import Control.Concurrent.STM.TMChan
 import Control.Concurrent.STM.TVar
@@ -6,6 +7,8 @@ import Control.Concurrent.Supply
 import Control.Monad.STM
 import Crypto.Tox
 import qualified Data.IntMap.Strict          as IntMap
+import DebugUtil
+import DPut
 import Network.QueryResponse
 import Network.Socket
 import Network.Tox
@@ -14,7 +17,6 @@ import qualified Network.Tox.Crypto.Handlers as CH
 import Network.Tox.Crypto.Transport
 import Network.Tox.DHT.Handlers              as DHT
 import Network.Tox.Onion.Transport           (UDPTransport)
-import DPut
 
 
 makeToxNode :: UDPTransport -> Maybe SecretKey -> IO (Tox extra)
@@ -71,10 +73,15 @@ main = do
     (a_quit,_,_) <- forkTox a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf False
     (b_quit,_,_) <- forkTox b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk False
 
+    threadReport False >>= putStrLn
 
     DHT.ping (toxDHT a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf) b
 
     putStrLn "Type Enter to quit..."
     getLine
 
-    return ()
+    a_quit
+    b_quit
+
+    threadDelay 500000
+    threadReport False >>= putStrLn