1 files changed, 0 insertions, 3 deletions

diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs
index c6a7903..3c8fb9e 100644
--- a/server/src/Thermoprint/Server/Queue.hs
+++ b/server/src/Thermoprint/Server/Queue.hs
@@ -144,9 +144,6 @@ 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