summaryrefslogtreecommitdiff
path: root/Connection/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Connection/Tox.hs')
-rw-r--r--Connection/Tox.hs5
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
30import GHC.Conc (labelThread) 30import GHC.Conc (labelThread)
31#endif 31#endif
32import GHC.Conc (ThreadStatus (..), threadStatus) 32import GHC.Conc (ThreadStatus (..), threadStatus)
33import System.IO
33 34
34 35
35 36
@@ -135,7 +136,9 @@ setToxPolicy :: Parameters
135 -> Key 136 -> Key
136 -> Policy 137 -> Policy
137 -> IO () 138 -> IO ()
138setToxPolicy params conmap k@(Key me them) policy = case policy of 139setToxPolicy params conmap k@(Key me them) policy = do
140 hPutStrLn stderr $ "C.setToxPolicy "++show (them,policy)
141 case policy of
139 TryingToConnect -> do 142 TryingToConnect -> do
140 mst <- lookupForPolicyChange conmap k policy 143 mst <- lookupForPolicyChange conmap k policy
141 r <- atomically $ lookupContact k (roster params) 144 r <- atomically $ lookupContact k (roster params)