From c05cc78e0774fb48440091a6f78c1485c8788aeb Mon Sep 17 00:00:00 2001
From: Jan Beinke <git@janbeinke.com>
Date: Fri, 14 Feb 2020 11:31:07 +0100
Subject: [PATCH] Convey the fact, that MonadBarIO implies MonadIO

---
 src/QBar/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/QBar/Core.hs b/src/QBar/Core.hs
index 8a235cf..c08557e 100644
--- a/src/QBar/Core.hs
+++ b/src/QBar/Core.hs
@@ -89,7 +89,7 @@ newtype BarUpdateChannel = BarUpdateChannel (IO ())
 type BarUpdateEvent = Event.Event
 
 
-class (Monad m) => MonadBarIO m where
+class (MonadIO m) => MonadBarIO m where
   liftBarIO :: BarIO a -> m a
 instance MonadBarIO BarIO where
   liftBarIO = id
-- 
GitLab