diff options
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 |