From 983f24ef78f2d1fe193249e6e59569fe72b960e3 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sat, 21 Oct 2023 17:40:28 +0300
Subject: [PATCH] fixed exit on http-port not set

---
 hbs2-peer/app/HttpWorker.hs | 6 +++++-
 hbs2-peer/app/PeerMain.hs   | 1 -
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/hbs2-peer/app/HttpWorker.hs b/hbs2-peer/app/HttpWorker.hs
index f608fa8a..76d24a98 100644
--- a/hbs2-peer/app/HttpWorker.hs
+++ b/hbs2-peer/app/HttpWorker.hs
@@ -2,6 +2,7 @@
 module HttpWorker where
 
 import HBS2.Prelude
+import HBS2.Clock
 import HBS2.Actors.Peer
 import HBS2.Storage
 import HBS2.Data.Types.Refs
@@ -10,6 +11,8 @@ import HBS2.Net.Proto.Types
 import HBS2.Net.Proto.RefLog
 import HBS2.Events
 
+import HBS2.System.Logger.Simple
+
 import PeerTypes
 import PeerConfig
 import RefLog ( doRefLogBroadCast )
@@ -109,5 +112,6 @@ httpWorker (PeerConfig syn) pmeta e = do
           Nothing -> status status500
           Just h  -> text [qc|{pretty h}|]
 
-  pure ()
+  warn "http port not set"
+  forever $ pause @'Seconds 600
 
diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index 05374bf0..422d1d1b 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -572,7 +572,6 @@ runPeer opts = U.handle (\e -> myException e
   let debugConf       = runReader (cfgValue @PeerDebugKey)   syn :: FeatureSwitch
   let trace1Conf      = runReader (cfgValue @PeerTrace1Key)  syn :: FeatureSwitch
   let helpFetchKeys   = runReader (cfgValue @PeerProxyFetchKey) syn & toKeys
-  let useHttpDownload = runReader (cfgValue @PeerUseHttpDownload) syn  & (== FeatureOn)
   let tcpListen       = runReader (cfgValue @PeerListenTCPKey) syn & fromMaybe ""
   let tcpProbeWait    = runReader (cfgValue @PeerTcpProbeWaitKey) syn
                           & fromInteger @(Timeout 'Seconds) . fromMaybe 300