From e8b87666e6a8116192a0cd88346178a10c70edd3 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 23 Feb 2023 07:04:10 +0300 Subject: [PATCH] default bootstrap hardcode --- hbs2-peer/app/Bootstrap.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/Bootstrap.hs b/hbs2-peer/app/Bootstrap.hs index bd074ad5..66ffc748 100644 --- a/hbs2-peer/app/Bootstrap.hs +++ b/hbs2-peer/app/Bootstrap.hs @@ -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