diff options
author | joe <joe@jerkface.net> | 2018-06-16 20:45:00 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-06-16 20:45:00 -0400 |
commit | 3941aaacd0fdf742d16cb5c63cbff99864103f21 (patch) | |
tree | 8af33422216aa71b5b905683cbdfa645f6ac1c9f /Connection | |
parent | 38d75e4ebdc128c55af23e9fc658b9a9ac092ac5 (diff) |
debug prints
Diffstat (limited to 'Connection')
-rw-r--r-- | Connection/Tox.hs | 5 |
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 | |||
30 | import GHC.Conc (labelThread) | 30 | import GHC.Conc (labelThread) |
31 | #endif | 31 | #endif |
32 | import GHC.Conc (ThreadStatus (..), threadStatus) | 32 | import GHC.Conc (ThreadStatus (..), threadStatus) |
33 | import 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 () |
138 | setToxPolicy params conmap k@(Key me them) policy = case policy of | 139 | setToxPolicy 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) |