diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-12 14:34:05 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-12 15:12:11 +0200 |
| commit | e8e0cb7f36641ffb7901178bc54fef98eba9215c (patch) | |
| tree | 2c51a3d2f98232fae2cdedb8b96368802b125411 /server/src/Thermoprint/Server/Queue/Utils.hs | |
| parent | 2ab4ee48a15da128536b27c77a224c08cd2e9b78 (diff) | |
| download | thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar.gz thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar.bz2 thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.tar.xz thermoprint-e8e0cb7f36641ffb7901178bc54fef98eba9215c.zip | |
Fix build
Diffstat (limited to 'server/src/Thermoprint/Server/Queue/Utils.hs')
| -rw-r--r-- | server/src/Thermoprint/Server/Queue/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Thermoprint/Server/Queue/Utils.hs b/server/src/Thermoprint/Server/Queue/Utils.hs index 745053e..0255250 100644 --- a/server/src/Thermoprint/Server/Queue/Utils.hs +++ b/server/src/Thermoprint/Server/Queue/Utils.hs | |||
| @@ -22,7 +22,7 @@ import Servant.Utils.Enter | |||
| 22 | import Thermoprint.Server.Queue | 22 | import Thermoprint.Server.Queue |
| 23 | 23 | ||
| 24 | standardCollapse :: MonadIO m => IdentityT IO :~> m | 24 | standardCollapse :: MonadIO m => IdentityT IO :~> m |
| 25 | standardCollapse = Nat $ liftIO . runIdentityT | 25 | standardCollapse = NT $ liftIO . runIdentityT |
| 26 | 26 | ||
| 27 | standardSleep :: Monad (QueueManagerM t) => QueueManager t | 27 | standardSleep :: Monad (QueueManagerM t) => QueueManager t |
| 28 | -- ^ Instruct 'runQM' to sleep some standard amount of time | 28 | -- ^ Instruct 'runQM' to sleep some standard amount of time |