Change <> to `mappend` for older GHCs
commit2a6d861267bccf827c4b91e99ed1e8efae86e0b1
authorTom McLaughlin <pyro777@gmail.com>
dateTue 25 Jun 2019, 03:18 (7 years ago)
parentd07b8fa
auto-update/test/Control/DebounceSpec.hs+1−1
@@ -144,7 +144,7 @@ waitForBatonToBeTaken baton = waitUntil 5 $ tryReadMVar baton >>= (`shouldBe` No
144144-- | Wait up to n seconds for an actual to complete without throwing an HUnitFailure
145145waitUntil :: Int -> IO a -> IO ()
146146waitUntil 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
148148 handler _status = Handler (\(HUnitFailure {}) -> return True)
149149
150150main :: IO ()