Improve logging around retrying in hydration tests
commit204cb5e93a6dbf8885fb2269967489b4db156982
authorElliot Cameron <eacameron@gmail.com>
dateFri 6 Mar 2020, 11:44 (7 years ago)
parentec6f8e4
reflex-dom-core/test/hydration.hs+2−2
@@ -1318,8 +1318,8 @@ withRetry a = wait 300
13181318 where wait :: Int -> WD a
13191319 wait 0 = a
13201320 wait n = try a >>= \case
1321− Left (_ :: SomeException) -> do
1322− liftIO $ threadDelay 100000
1321+ Left (e :: SomeException) -> do
1322+ liftIO $ putStrLn ("(retrying due to " <> show e <> ")") *> threadDelay 100000
13231323 wait $ n - 1
13241324 Right v -> return v
13251325