summaryrefslogtreecommitdiff
path: root/dht/examples/testTox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/examples/testTox.hs')
-rw-r--r--dht/examples/testTox.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/dht/examples/testTox.hs b/dht/examples/testTox.hs
index 57601422..6db977be 100644
--- a/dht/examples/testTox.hs
+++ b/dht/examples/testTox.hs
@@ -48,7 +48,7 @@ makeToxNode udp sec onSessionF = do
48 onSessionF 48 onSessionF
49 crypto 49 crypto
50 udp 50 udp
51 (\_ _ -> return ()) 51 Nothing
52 52
53 53
54setToxID :: Tox () -> Maybe SecretKey -> IO () 54setToxID :: Tox () -> Maybe SecretKey -> IO ()
@@ -113,8 +113,8 @@ main = do
113 113
114 -- b_sessions <- sessionChan b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk 114 -- b_sessions <- sessionChan b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk
115 115
116 (a_quit,_,_) <- forkTox a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf False 116 (a_quit,_,_) <- forkTox a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf False False
117 (b_quit,_,_) <- forkTox b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk False 117 (b_quit,_,_) <- forkTox b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk False False
118 118
119 threadReport False >>= putStrLn 119 threadReport False >>= putStrLn
120 120
@@ -149,7 +149,7 @@ main = do
149 149
150 -- sendMessage (toxHandshakes a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf) (nodeAddr b) hs 150 -- sendMessage (toxHandshakes a_Ct7g5azVcJ8KnvxzbXs9GqeqcjrP7VdZXIC'uHeTlRf) (nodeAddr b) hs
151 151
152 (b_quit,_,_) <- forkTox b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk False 152 (b_quit,_,_) <- forkTox b_OM7znaPMYkTbm'9GcZJAdnDATXmZxZ9fnaSTP3qNCZk False False
153 153
154 forkIO $ do 154 forkIO $ do
155 tid <- myThreadId 155 tid <- myThreadId