diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-19 14:21:19 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-19 14:21:19 +0100 |
| commit | a6fafcc31f81b12bcffebec77cbba80aa422671d (patch) | |
| tree | fc6b39b0cc83f59e3e958f254f36d44a9af6089a /server/src | |
| parent | e109d7c997960718707e6e74a776890a97e54a9f (diff) | |
| download | thermoprint-a6fafcc31f81b12bcffebec77cbba80aa422671d.tar thermoprint-a6fafcc31f81b12bcffebec77cbba80aa422671d.tar.gz thermoprint-a6fafcc31f81b12bcffebec77cbba80aa422671d.tar.bz2 thermoprint-a6fafcc31f81b12bcffebec77cbba80aa422671d.tar.xz thermoprint-a6fafcc31f81b12bcffebec77cbba80aa422671d.zip | |
Revert "Revert "Removed extraneous instance""
This reverts commit e109d7c997960718707e6e74a776890a97e54a9f.
Diffstat (limited to 'server/src')
| -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 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 | |||
| 144 | type QueueManager t = QueueManagerM t (Extended Micro) | 144 | type QueueManager t = QueueManagerM t (Extended Micro) |
| 145 | type QueueManagerM t = ComposeT (StateT Queue) t STM | 145 | type QueueManagerM t = ComposeT (StateT Queue) t STM |
| 146 | 146 | ||
| 147 | instance (Monad (StateT s (g m)), Monad (g m)) => MonadState s (ComposeT (StateT s) g m) where | ||
| 148 | state = ComposeT . state | ||
| 149 | |||
| 150 | runQM :: ( HasQueue q | 147 | runQM :: ( HasQueue q |
| 151 | , MFunctor t | 148 | , MFunctor t |
| 152 | , MonadTrans t | 149 | , MonadTrans t |