From 252a5bb8610cac4d51c7c4b89700d78048b016b7 Mon Sep 17 00:00:00 2001
From: Jan Beinke <git@janbeinke.com>
Date: Mon, 3 Feb 2020 02:31:34 +0100
Subject: [PATCH] Add some instances for MonadBarIO

---
 src/QBar/Core.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/QBar/Core.hs b/src/QBar/Core.hs
index 59104f9..8a235cf 100644
--- a/src/QBar/Core.hs
+++ b/src/QBar/Core.hs
@@ -14,6 +14,8 @@ import Control.Exception (IOException)
 import Control.Lens
 import Control.Monad (forever)
 import Control.Monad.Reader (ReaderT, runReaderT, ask)
+import Control.Monad.State (StateT)
+import Control.Monad.Writer (WriterT)
 import Data.Aeson.TH
 import qualified Data.ByteString.Lazy.Char8 as C8
 import Data.Int (Int64)
@@ -93,6 +95,12 @@ instance MonadBarIO BarIO where
   liftBarIO = id
 instance (MonadBarIO m) => MonadBarIO (Proxy a' a b' b m) where
   liftBarIO = lift . liftBarIO
+instance (MonadBarIO m) => MonadBarIO (StateT a m) where
+  liftBarIO = lift . liftBarIO
+instance (MonadBarIO m) => MonadBarIO (ReaderT a m) where
+  liftBarIO = lift . liftBarIO
+instance (MonadBarIO m, Monoid a) => MonadBarIO (WriterT a m) where
+  liftBarIO = lift . liftBarIO
 
 askBar :: MonadBarIO m => m Bar
 askBar = liftBarIO $ lift ask
-- 
GitLab