1 files changed, 3 insertions, 0 deletions

diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs
index 3c8fb9e..c6a7903 100644
--- a/server/src/Thermoprint/Server/Queue.hs
+++ b/server/src/Thermoprint/Server/Queue.hs
@@ -144,6 +144,9 @@ toZipper = Set.foldl' (flip insert) def
 type QueueManager t = QueueManagerM t (Extended Micro)
 type QueueManagerM t = ComposeT (StateT Queue) t STM
 
+instance (Monad (StateT s (g m)), Monad (g m)) => MonadState s (ComposeT (StateT s) g m) where
+  state = ComposeT . state
+
 runQM :: ( HasQueue q
          , MFunctor t
          , MonadTrans t