1 files changed, 0 insertions, 3 deletions

diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs
index 89a86bc..cc87886 100644
--- a/server/src/Thermoprint/Server/Queue.hs
+++ b/server/src/Thermoprint/Server/Queue.hs
@@ -125,9 +125,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