Merge branch 'gergely/vasil' of https://github.com/mlabs-haskell/plutip into gergely/vasil

Author: Anteproperispomenon

flake.lock

@@ -11,7 +11,7 @@
       flake = false;
     };
     bot-plutus-interface.url =
-      "github:mlabs-haskell/bot-plutus-interface?rev=6cc0d239a53d4cb90d83c5e13cf07fbbd9f97f3b";
+      "github:mlabs-haskell/bot-plutus-interface?rev=d62bb6ee68c2be7fa5bc1afb9f6d6902c7bd400b";
   };
 
   outputs =

flake.nix

@@ -257,7 +257,7 @@ waitForRelayNode trCluster rn =
       tip <- getTip
       case tip of
         (ChainTip (SlotNo _) _ _) -> pure ()
-        _ -> throwString "Timeout waiting for node to start"
+        a -> throwString $ "Timeout waiting for node to start. Last 'tip' response:\n" <> show a
       pure ()
 
 -- | Launch the chain index in a separate thread.
@@ -285,11 +285,15 @@ launchChainIndex conf (RunningNode sp _block0 (netParams, _vData) _) dir = do
 
     waitForChainIndex port = do
       let policy = constantDelay 500000 <> limitRetries 50
+      let policy = constantDelay 1_000_000 <> limitRetries 60
       recoverAll policy $ \_ -> do
         tip <- queryTipWithChIndex port
         case tip of
           Right (Tip (Slot _) _ _) -> pure ()
-          _ -> throwString "Timeout waiting for chain-index to start"
+          a ->
+            throwString $
+              "Timeout waiting for chain-index to start indexing. Last response:\n"
+                <> show a
 
     queryTipWithChIndex port = do
       manager' <- newManager defaultManagerSettings