From e3068de72434d6152c40df691f26943c88327406 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 17 Feb 2016 00:26:50 +0000 Subject: Added TODO --- server/src/Thermoprint/Server/Queue.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs index dcd4119..cebf759 100644 --- a/server/src/Thermoprint/Server/Queue.hs +++ b/server/src/Thermoprint/Server/Queue.hs @@ -135,6 +135,8 @@ runQM :: ( HasQueue q , Monad (t STM) ) => QueueManager t -> q -> t IO () -- ^ Periodically modify a 'Queue' +-- +-- /TODO/: Garbage collect deleted jobs -- maybe switch to 'Set QueueItem' in 'QueueManager' runQM qm (extractQueue -> q) = sleep =<< qm' where qm' = hoist atomically $ (\(a, s) -> lift (writeTVar q $!! s) >> return a) =<< runStateT (getComposeT qm) =<< lift (readTVar q) -- cgit v1.2.3