diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-19 14:18:44 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-19 14:18:44 +0100 |
| commit | e109d7c997960718707e6e74a776890a97e54a9f (patch) | |
| tree | 9782d8bd4a0bf5d11c997352fd2ac556f6016610 /server | |
| parent | 55074a07fdb847749e4f57c6c2eac4ffab1d48b6 (diff) | |
| download | thermoprint-e109d7c997960718707e6e74a776890a97e54a9f.tar thermoprint-e109d7c997960718707e6e74a776890a97e54a9f.tar.gz thermoprint-e109d7c997960718707e6e74a776890a97e54a9f.tar.bz2 thermoprint-e109d7c997960718707e6e74a776890a97e54a9f.tar.xz thermoprint-e109d7c997960718707e6e74a776890a97e54a9f.zip | |
Revert "Removed extraneous instance"
This reverts commit 9be1df5c047c1cb0f4e1d72feb5c99b86918df80.
Diffstat (limited to 'server')
| -rw-r--r-- | server/src/Thermoprint/Server/Queue.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 | |||
| 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 | |||
| 147 | runQM :: ( HasQueue q | 150 | runQM :: ( HasQueue q |
| 148 | , MFunctor t | 151 | , MFunctor t |
| 149 | , MonadTrans t | 152 | , MonadTrans t |