diff --git a/sandwich-demos/lib/Common.hs b/sandwich-demos/lib/Common.hs
index 7fce2702..28ce1ec3 100644
--- 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 ()