From 3941aaacd0fdf742d16cb5c63cbff99864103f21 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 16 Jun 2018 20:45:00 -0400 Subject: debug prints --- Connection/Tox.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Connection') 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) -- cgit v1.2.3