From ee63fb6292397617312c422fa5c026a2c4052656 Mon Sep 17 00:00:00 2001
From: Tomasz Rybarczyk <tomasz.rybarczyk@iohk.io>
Date: Mon, 22 Jan 2024 16:57:13 +0100
Subject: [PATCH] Improve wallet checking loop

---
 src/Component/App.purs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Component/App.purs b/src/Component/App.purs
index 8f8e9860..a6a8a8b5 100644
--- a/src/Component/App.purs
+++ b/src/Component/App.purs
@@ -276,8 +276,9 @@ mkApp = do
         Nothing, Nothing -> pure unit
         Nothing, Just _ -> do
           liftEffect $ setWalletContext Nothing
-        Just (WalletInfo walletInfo), _ -> do
-          res <- withTimeout (Milliseconds 7000.0) do
+        Just (WalletInfo walletInfo), Nothing -> do
+          -- This only checks if the internal effect finished successfully
+          (res :: Maybe Unit) <- withTimeout (Milliseconds 10000.0) do
             walletContext <- WalletContext.walletContext cardanoMultiplatformLib walletInfo.wallet
             liftEffect $ setWalletContext walletContext
             -- FIXME: Another work around the rounting issue.
@@ -288,6 +289,7 @@ mkApp = do
               msgHubProps.add $ MessageHub.Error $ DOOM.text "Wallet is not responding. Please check its configuration or try another wallet"
               setWalletInfo Nothing
             Just _ -> pure unit
+        _, _ -> pure unit
 
     disconnectingWallet /\ setDisconnectingWallet <- useState' false
     checkingNotifications /\ setCheckingNotifications <- useState' false