From 9be1df5c047c1cb0f4e1d72feb5c99b86918df80 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 18 Feb 2016 20:33:12 +0000 Subject: Removed extraneous instance --- server/src/Thermoprint/Server/Queue.hs | 3 --- 1 file changed, 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 -- cgit v1.2.3