default bootstrap hardcode

This commit is contained in:
Dmitry Zuikov 2023-02-23 07:04:10 +03:00
parent 12231d2e4d
commit e8b87666e6
1 changed files with 1 additions and 1 deletions

View File

@ -44,7 +44,7 @@ bootstrapDnsLoop conf = do
forever do
debug "I'm a bootstrapLoop"
let dns = cfgValue @PeerDnsBootStrapKey conf :: Set String
let dns = cfgValue @PeerDnsBootStrapKey conf <> Set.singleton "bootstrap.hbs2.net"
for_ (Set.toList dns) $ \dn -> do
debug $ "bootstrapping from" <+> pretty dn