diff --git a/src/Quasar/PreludeExtras.hs b/src/Quasar/PreludeExtras.hs
index 98af4f980095edbc59f2f24e0c599a00b337b11c..c1d1edd9d96be88482bf8d5e65792d9903e8ea30 100644
--- a/src/Quasar/PreludeExtras.hs
+++ b/src/Quasar/PreludeExtras.hs
@@ -109,5 +109,5 @@ splitOn p s = case break p s of
   (w, []) -> [w]
   (w, _:r) -> w : splitOn p r
 
-sleepForever :: IO a
-sleepForever = forever $ threadDelay 1000000000000
+sleepForever :: MonadIO m => m a
+sleepForever = liftIO $ forever $ threadDelay 1000000000000