reduce delay

This commit is contained in:
Evgeny Poberezkin
2024-01-08 19:25:15 +00:00
parent 032191bd20
commit 94ce06e1e9
+1 -1
View File
@@ -510,7 +510,7 @@ testNotificationsSMPRestartBatch n t APNSMockServer {apnsQ} = do
liftIO $ print 2
_ <- registerTestToken a "abcd" NMInstant apnsQ
liftIO $ print 3
liftIO $ threadDelay 10000000
liftIO $ threadDelay 5000000
liftIO $ print 4
forM_ (zip [0..] conns) $ \(i, (aliceId, bobId)) -> do
liftIO $ putStrLn $ "*** msg " <> show i