1 files changed, 1 insertions, 1 deletions

diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs
index 44b8402..2adca3c 100644
--- a/server/src/Thermoprint/Server/API.hs
+++ b/server/src/Thermoprint/Server/API.hs
@@ -148,7 +148,7 @@ abortJob jobId = do
       current@(Queue pending _ _) <- readTVar $ queue p
       let filtered = Seq.filter (/= castId jobId) pending
       writeTVar (queue p) $ current { pending = filtered }
-      return $ ((==) `on` length) pending filtered
+      return . not $ ((==) `on` length) pending filtered
   when (not found) $ left err404
 
 listDrafts :: Handler (Map API.DraftId (Maybe DraftTitle))