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'
       | otherwise = return ()
 
 jobGC :: ( MonadReader ConnectionPool m
-         , MonadBaseControl IO m
+         , MonadUnliftIO m
          , MonadIO m
          ) => TChan JobId -> m ()
 -- ^ Listen for 'JobId's on a 'TChan' and delete them from the database 'forever'