From 69abfcf7e55bd0961c8294351bf10ae7d10462d6 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 23 May 2023 06:01:19 +0300 Subject: [PATCH] removed-extra-spaces --- hbs2-peer/app/PeerMain.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs index 8389829a..f0cf043a 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -729,19 +729,19 @@ runPeer opts = Exception.handle myException $ do -- peerThread "tcpWorker" (tcpWorker conf) - peerThread "httpWorker " (httpWorker conf denv) + peerThread "httpWorker" (httpWorker conf denv) - peerThread "checkMetrics " (checkMetrics metrics) + peerThread "checkMetrics" (checkMetrics metrics) - peerThread "peerPingLoop " (peerPingLoop @e conf) + peerThread "peerPingLoop" (peerPingLoop @e conf) - peerThread "knownPeersPingLoop " (knownPeersPingLoop @e conf) + peerThread "knownPeersPingLoop" (knownPeersPingLoop @e conf) - peerThread "bootstrapDnsLoop " (bootstrapDnsLoop @e conf) + peerThread "bootstrapDnsLoop" (bootstrapDnsLoop @e conf) - peerThread "pexLoop " (pexLoop @e) + peerThread "pexLoop" (pexLoop @e) - peerThread "blockDownloadLoop " (blockDownloadLoop denv) + peerThread "blockDownloadLoop" (blockDownloadLoop denv) let tcpProbeWait :: Timeout 'Seconds tcpProbeWait = (fromInteger . fromMaybe 300) (cfgValue @PeerTcpProbeWaitKey conf) @@ -751,13 +751,13 @@ runPeer opts = Exception.handle myException $ do -- FIXME: clumsy-code -- Is it better now ? when useHttpDownload do - peerThread "blockHttpDownloadLoop " (blockHttpDownloadLoop denv) + peerThread "blockHttpDownloadLoop" (blockHttpDownloadLoop denv) peerThread "postponedLoop" (postponedLoop denv) peerThread "downloadQueue" (downloadQueue conf denv) - peerThread "reflogWorker " (reflogWorker @e conf rwa) + peerThread "reflogWorker" (reflogWorker @e conf rwa) peerThread "ping pong" $ forever $ do cmd <- liftIO $ atomically $ readTQueue rpcQ