periodically purge expired subscriptions

This commit is contained in:
Trolli Schmittlauch 2020-09-14 15:49:44 +02:00
parent a0e7142a7d
commit c036dea7f9
2 changed files with 23 additions and 5 deletions

View file

@ -69,7 +69,7 @@ readConfig = do
, confRequestRetries = 3
}
sConf = ServiceConf
{ confSubscriptionExpiryTime = fromIntegral $ 2*3600 `div` speedup
{ confSubscriptionExpiryTime = fromIntegral 12*3600 / fromIntegral speedup
, confServicePort = read servicePortString
, confServiceHost = confDomainString
, confLogfilePath = "../simulationData/logs/" <> confDomainString <> ".log"