From 09f4d0431ef3015653b6b78f1d413454519380bd Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 24 Jan 2016 18:06:03 +0000
Subject: First attempt at deleteJob

---
 server/src/Thermoprint/Server/API.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3