Fix updateLogins

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