diff options
| author | joe <joe@jerkface.net> | 2017-07-29 19:12:49 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-29 19:12:49 -0400 |
| commit | e8aed649ce21f1167b78e1604e3760df47e9a721 (patch) | |
| tree | 66a121e438f450474330724f9812923eba16f644 /Mainline.hs | |
| parent | be4c457b84a8a005ef7a22f9ad40ba80e33c4d06 (diff) | |
JSON instances for Tox.NodeInfo
Diffstat (limited to 'Mainline.hs')
| -rw-r--r-- | Mainline.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Mainline.hs b/Mainline.hs index 4ce4f4da..28025d59 100644 --- a/Mainline.hs +++ b/Mainline.hs | |||
| @@ -608,6 +608,7 @@ newClient addr = do | |||
| 608 | forM_ ns $ \n -> do | 608 | forM_ ns $ \n -> do |
| 609 | hPutStrLn stderr $ "Change IP, ping: "++show n | 609 | hPutStrLn stderr $ "Change IP, ping: "++show n |
| 610 | ping outgoingClient n | 610 | ping outgoingClient n |
| 611 | -- TODO: trigger bootstrap ipv4 | ||
| 611 | again | 612 | again |
| 612 | fork $ fix $ \again -> do | 613 | fork $ fix $ \again -> do |
| 613 | myThreadId >>= flip labelThread "addr6" | 614 | myThreadId >>= flip labelThread "addr6" |
| @@ -616,6 +617,7 @@ newClient addr = do | |||
| 616 | forM_ ns $ \n -> do | 617 | forM_ ns $ \n -> do |
| 617 | hPutStrLn stderr $ "Change IP, ping: "++show n | 618 | hPutStrLn stderr $ "Change IP, ping: "++show n |
| 618 | ping outgoingClient n | 619 | ping outgoingClient n |
| 620 | -- TODO: trigger bootstrap ipv6 | ||
| 619 | again | 621 | again |
| 620 | 622 | ||
| 621 | refresh_thread4 <- forkPollForRefresh | 623 | refresh_thread4 <- forkPollForRefresh |