From 0934aa17bcb700608e85af488fadd1ca7c87106a Mon Sep 17 00:00:00 2001 From: Rene Vergara Date: Fri, 20 May 2022 09:16:51 -0500 Subject: [PATCH] Fix updateLogins --- app/Main.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/app/Main.hs b/app/Main.hs index 6f570e0..84fd1f6 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -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