Fix updateLogins

This commit is contained in:
Rene Vergara 2022-05-20 09:16:51 -05:00
parent 1fbad21678
commit 0934aa17bc
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -42,6 +42,9 @@ main = do
forkIO (setInterval 75 (scanZcash nodeAddress pipe dbName nodeUser nodePwd)) forkIO (setInterval 75 (scanZcash nodeAddress pipe dbName nodeUser nodePwd))
_ <- forkIO (setInterval 60 (checkPayments pipe dbName)) _ <- forkIO (setInterval 60 (checkPayments pipe dbName))
_ <- forkIO (setInterval 60 (expireOwners pipe dbName)) _ <- forkIO (setInterval 60 (expireOwners pipe dbName))
_ <-
forkIO
(setInterval 60 (updateLogins nodeUser nodePwd nodeAddress pipe dbName))
let appRoutes = routes pipe dbName passkey nodeAddress nodeUser nodePwd let appRoutes = routes pipe dbName passkey nodeAddress nodeUser nodePwd
case myTlsSettings of case myTlsSettings of
Nothing -> scotty port appRoutes Nothing -> scotty port appRoutes