From 605cbff0026013c1faf341b127868bffc5ec1cb9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 18 Feb 2016 18:35:26 +0000 Subject: minor code cleanup --- server/src/Thermoprint/Server/Queue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/src') diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs index cebf759..89a86bc 100644 --- a/server/src/Thermoprint/Server/Queue.hs +++ b/server/src/Thermoprint/Server/Queue.hs @@ -139,7 +139,7 @@ runQM :: ( HasQueue q -- /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) + qm' = hoist atomically $ (\(a, s) -> a <$ lift (writeTVar q $!! s)) =<< runStateT (getComposeT qm) =<< lift (readTVar q) sleep (abs -> delay) | (Finite d) <- delay = liftIO (threadDelay $ fromEnum d) >> runQM qm q | otherwise = return () -- cgit v1.2.3