scale request timeout with speedup and pass it directly to function

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