codedownio/sandwich
1
1
Fork 0
mirror of https://github.com/codedownio/sandwich.git synced 2024-10-03 23:08:04 +03:00
Code Issues Projects Releases Wiki Activity

Remove MonadThrow from sandwich-demos/lib/Common.hs

Browse Source
This commit is contained in:
thomasjm 2024-02-29 07:22:20 -08:00
parent 5c5464b2cc
commit fc67669157
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sandwich-demos/lib/Common.hs
View File

@ -11,10 +11,10 @@ import Test.Sandwich
pauseSeconds :: (MonadIO m) => Double -> m ()
pauseSeconds s = liftIO $ threadDelay $ round (s * 1000000)
pauseRandomAndSucceed :: (MonadIO m, MonadThrow m) => ExampleT context m ()
pauseRandomAndSucceed :: (MonadIO m) => ExampleT context m ()
pauseRandomAndSucceed = pauseRandom >> 2 `shouldBe` 2
pauseRandomAndFail :: (MonadIO m, MonadThrow m) => ExampleT context m ()
pauseRandomAndFail :: (MonadIO m) => ExampleT context m ()
pauseRandomAndFail = pauseRandom >> 2 `shouldBe` 3
pauseRandom :: (MonadIO m) => m ()