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.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.hs')
-rw-r--r-- | server/src/Thermoprint/Server/Queue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs index aa26fe3..fb5deb9 100644 --- a/server/src/Thermoprint/Server/Queue.hs +++ b/server/src/Thermoprint/Server/Queue.hs | |||
@@ -180,7 +180,7 @@ runQM gcChan qm (extractQueue -> q) = sleep =<< qm' | |||
180 | | otherwise = return () | 180 | | otherwise = return () |
181 | 181 | ||
182 | jobGC :: ( MonadReader ConnectionPool m | 182 | jobGC :: ( MonadReader ConnectionPool m |
183 | , MonadBaseControl IO m | 183 | , MonadUnliftIO m |
184 | , MonadIO m | 184 | , MonadIO m |
185 | ) => TChan JobId -> m () | 185 | ) => TChan JobId -> m () |
186 | -- ^ Listen for 'JobId's on a 'TChan' and delete them from the database 'forever' | 186 | -- ^ Listen for 'JobId's on a 'TChan' and delete them from the database 'forever' |