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