From bf7df2f54b2489e253599591afb2ecf26968b468 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 4 Oct 2021 20:07:49 +0200
Subject: [PATCH] Change sleepForever to MonadIO

---
 src/Quasar/PreludeExtras.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Quasar/PreludeExtras.hs b/src/Quasar/PreludeExtras.hs
index 98af4f9..c1d1edd 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
-- 
GitLab