1 files changed, 4 insertions, 1 deletions

diff --git a/Connection/Tox.hs b/Connection/Tox.hs
index a131253d..b0da494a 100644
--- a/Connection/Tox.hs
+++ b/Connection/Tox.hs
@@ -30,6 +30,7 @@ import Control.Concurrent.Lifted
 import GHC.Conc                  (labelThread)
 #endif
 import GHC.Conc (ThreadStatus (..), threadStatus)
+import System.IO
 
 
 
@@ -135,7 +136,9 @@ setToxPolicy :: Parameters
              -> Key
              -> Policy
              -> IO ()
-setToxPolicy params conmap k@(Key me them) policy = case policy of
+setToxPolicy params conmap k@(Key me them) policy = do
+  hPutStrLn stderr $ "C.setToxPolicy "++show (them,policy)
+  case policy of
     TryingToConnect -> do
         mst <- lookupForPolicyChange conmap k policy
         r <- atomically $ lookupContact k (roster params)