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

codedownio · Feb 29, 2024 · fc67669 · fc67669
1 parent 5c5464b
commit fc67669
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sandwich-demos/lib/Common.hs b/sandwich-demos/lib/Common.hs
@@ -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 ()