From f706b4e7fad48712e2032e27efb1318326db2569 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 25 Jan 2016 18:07:28 +0000 Subject: abortJob should not return 404 on success --- server/src/Thermoprint/Server/API.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'server/src') 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)) -- cgit v1.2.3