@@ -144,7 +144,7 @@ waitForBatonToBeTaken baton = waitUntil 5 $ tryReadMVar baton >>= (`shouldBe` No
144-- | Wait up to n seconds for an actual to complete without throwing an HUnitFailure
144-- | Wait up to n seconds for an actual to complete without throwing an HUnitFailure
145waitUntil :: Int -> IO a -> IO ()
145waitUntil :: Int -> IO a -> IO ()
146waitUntil n action = recovering policy [handler] (\_status -> void action)
146waitUntil n action = recovering policy [handler] (\_status -> void action)
147− where policy = constantDelay 1000 <> limitRetries (n * 1000) -- 1ms * n * 1000 tries = n seconds
147+ where policy = constantDelay 1000 `mappend` limitRetries (n * 1000) -- 1ms * n * 1000 tries = n seconds
148 handler _status = Handler (\(HUnitFailure {}) -> return True)
148 handler _status = Handler (\(HUnitFailure {}) -> return True)
150main :: IO ()
150main :: IO ()