schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

try all bootstrap nodes until successfully joined

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-05-26 20:54:02 +02:00
parent 702684b1a9
commit b1c5c5e5f4
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Hash2Pub/Main.hs
View file

@ -17,12 +17,20 @@ main = do
print serverSock print serverSock
-- currently no masking is necessary, as there is nothing to clean up -- currently no masking is necessary, as there is nothing to clean up
cacheWriterThread <- forkIO $ cacheWriter thisNode cacheWriterThread <- forkIO $ cacheWriter thisNode
-- idea: list of bootstrapping nodes, try joining within a timeout -- try joining the DHT using one of the provided bootstrapping nodes
joinedState <- fediChordBootstrapJoin thisNode $ head . confBootstrapNodes $ conf let
tryJoining (bn:bns) = do
j <- fediChordBootstrapJoin thisNode bn
case j of
Left _ -> tryJoining bns
Right joined -> pure $ Right joined
tryJoining [] = pure $ Left "Exhausted all bootstrap points for joining."
joinedState <- tryJoining $ confBootstrapNodes conf
-- stop main thread from terminating during development -- stop main thread from terminating during development
getChar getChar
pure () pure ()
readConfig :: IO FediChordConf readConfig :: IO FediChordConf
readConfig = do readConfig = do
confDomainString : ipString : portString : bootstrapHost : bootstrapPortString : _ <- getArgs confDomainString : ipString : portString : bootstrapHost : bootstrapPortString : _ <- getArgs