server endpoint for tag subscription

2020-08-01 11:00:29 +02:00 · 2020-08-01 11:00:29 +02:00 · 7280f251b5
commit 7280f251b5
parent 7d7fa3b52a
4 changed files with 19 additions and 6 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -57,7 +57,7 @@ readConfig = do
      , confMaxLookupCacheAge = 300
                           }
        sConf = ServiceConf {
-        confSubscriptionExpiryTime = 2*3600 `div` read speedup
+        confSubscriptionExpiryTime = fromIntegral $ 2*3600 `div` (read speedup :: Integer)
                            , confServicePort = read servicePortString
                            , confServiceHost = confDomainString
                            }