From e109d7c997960718707e6e74a776890a97e54a9f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 19 Feb 2016 14:18:44 +0100 Subject: Revert "Removed extraneous instance" This reverts commit 9be1df5c047c1cb0f4e1d72feb5c99b86918df80. --- server/src/Thermoprint/Server/Queue.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'server/src/Thermoprint') 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 -- cgit v1.2.3