aboutsummaryrefslogtreecommitdiff
path: root/server/src
diff options
context:
space:
mode:
Diffstat (limited to 'server/src')
-rw-r--r--server/src/Thermoprint/Server/API.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs
index 66a594b..5fbb18e 100644
--- a/server/src/Thermoprint/Server/API.hs
+++ b/server/src/Thermoprint/Server/API.hs
@@ -80,7 +80,7 @@ thermoprintServer :: ServerT ThermoprintAPI Handler
80-- ^ A 'servant-server' for 'ThermoprintAPI' 80-- ^ A 'servant-server' for 'ThermoprintAPI'
81thermoprintServer = listPrinters 81thermoprintServer = listPrinters
82 :<|> (listJobs :<|> queueJob) 82 :<|> (listJobs :<|> queueJob)
83 :<|> getJob <||> jobStatus <||> deleteJob 83 :<|> getJob <||> jobStatus <||> abortJob
84 :<|> (listDrafts :<|> addDraft) 84 :<|> (listDrafts :<|> addDraft)
85 :<|> updateDraft <||> getDraft <||> deleteDraft <||> printDraft 85 :<|> updateDraft <||> getDraft <||> deleteDraft <||> printDraft
86 where 86 where
@@ -138,8 +138,8 @@ getJob jobId = fmap jobContent . maybe (left err404) return =<< runSqlPool (get
138jobStatus :: API.JobId -> Handler JobStatus 138jobStatus :: API.JobId -> Handler JobStatus
139jobStatus jobId = maybe (left err404) return . lookup jobId . toList =<< listJobs Nothing Nothing Nothing 139jobStatus jobId = maybe (left err404) return . lookup jobId . toList =<< listJobs Nothing Nothing Nothing
140 140
141deleteJob :: API.JobId -> Handler () 141abortJob :: API.JobId -> Handler ()
142deleteJob jobId = do 142abortJob jobId = do
143 printerIds <- asks (Map.keys . printers) 143 printerIds <- asks (Map.keys . printers)
144 forM_ printerIds $ \pId -> do 144 forM_ printerIds $ \pId -> do
145 (pId', p) <- lookupPrinter $ Just pId 145 (pId', p) <- lookupPrinter $ Just pId