diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-18 20:33:12 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-18 20:33:12 +0000 |
| commit | 9be1df5c047c1cb0f4e1d72feb5c99b86918df80 (patch) | |
| tree | 27d4b6767a9915e572cbb044f1a7dff46b7fed50 | |
| parent | 605cbff0026013c1faf341b127868bffc5ec1cb9 (diff) | |
| download | thermoprint-9be1df5c047c1cb0f4e1d72feb5c99b86918df80.tar thermoprint-9be1df5c047c1cb0f4e1d72feb5c99b86918df80.tar.gz thermoprint-9be1df5c047c1cb0f4e1d72feb5c99b86918df80.tar.bz2 thermoprint-9be1df5c047c1cb0f4e1d72feb5c99b86918df80.tar.xz thermoprint-9be1df5c047c1cb0f4e1d72feb5c99b86918df80.zip | |
Removed extraneous instance
| -rw-r--r-- | server/src/Thermoprint/Server/Queue.hs | 3 |
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 | |||
| 125 | type QueueManager t = QueueManagerM t (Extended Micro) | 125 | type QueueManager t = QueueManagerM t (Extended Micro) |
| 126 | type QueueManagerM t = ComposeT (StateT Queue) t STM | 126 | type QueueManagerM t = ComposeT (StateT Queue) t STM |
| 127 | 127 | ||
| 128 | instance (Monad (StateT s (g m)), Monad (g m)) => MonadState s (ComposeT (StateT s) g m) where | ||
| 129 | state = ComposeT . state | ||
| 130 | |||
| 131 | runQM :: ( HasQueue q | 128 | runQM :: ( HasQueue q |
| 132 | , MFunctor t | 129 | , MFunctor t |
| 133 | , MonadTrans t | 130 | , MonadTrans t |