Fix updateLogins
This commit is contained in:
parent
1fbad21678
commit
0934aa17bc
1 changed files with 3 additions and 0 deletions
|
@ -42,6 +42,9 @@ main = do
|
|||
forkIO (setInterval 75 (scanZcash nodeAddress pipe dbName nodeUser nodePwd))
|
||||
_ <- forkIO (setInterval 60 (checkPayments 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
|
||||
case myTlsSettings of
|
||||
Nothing -> scotty port appRoutes
|
||||
|
|
Loading…
Reference in a new issue