scale request timeout with speedup and pass it directly to function

2020-09-04 16:53:48 +02:00 · 2020-09-04 16:53:48 +02:00 · c9b0e66110
commit c9b0e66110
parent 4f08d33d2e
4 changed files with 32 additions and 28 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -65,6 +65,8 @@ readConfig = do
          , confJoinAttemptsInterval = 60 * 10^6 `div` speedup
          , confMaxNodeCacheAge = 600 / fromIntegral speedup
          , confResponsePurgeAge = 60 / fromIntegral speedup
+          , confRequestTimeout = 5 * 10^6 `div` speedup
+          , confRequestRetries = 3
                           }
        sConf = ServiceConf {
            confSubscriptionExpiryTime = fromIntegral $ 2*3600 `div` speedup