We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d5ebab3 commit 2f3b2beCopy full SHA for 2f3b2be
hls-test-utils/src/Test/Hls.hs
@@ -144,7 +144,7 @@ waitForProgressDone :: Session ()
144
waitForProgressDone = loop
145
where
146
loop = do
147
- ~() <- skipManyTill anyMessage $ satisfyMaybe $ \case
+ skipManyTill anyMessage $ satisfyMaybe $ \case
148
FromServerMess SProgress (NotificationMessage _ _ (ProgressParams _ (End _))) -> Just ()
149
_ -> Nothing
150
done <- null <$> getIncompleteProgressSessions
0 commit comments