First attempt at deleteJob

1 files changed, 8 insertions, 1 deletions

diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs
index 1bbefb1..9e28d58 100644
--- a/server/src/Thermoprint/Server/API.hs
+++ b/server/src/Thermoprint/Server/API.hs
@@ -143,7 +143,14 @@ jobStatus :: API.JobId -> Handler JobStatus
 jobStatus jobId = maybe (left err404) return . lookup jobId . toList =<< listJobs Nothing Nothing Nothing
 
 deleteJob :: API.JobId -> Handler ()
-deleteJob = return undefined
+deleteJob jobId = do
+  printerIds <- asks (Map.keys . printers)
+  forM_ printerIds $ \pId -> do
+    (pId', p) <- lookupPrinter $ Just pId
+    -- liftIO . atomically . modifyTVar' (queue p) $ force . removeNeedle
+    undefined
+  where
+    needle = JobKey . SqlBackendKey $ castId jobId
 
 listDrafts :: Handler (Map API.DraftId (Maybe DraftTitle))
 listDrafts = return undefined