From 36bc432fc0f8ae46c7ff0de162ee275d25f12e3a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 25 Jan 2016 18:46:25 +0000
Subject: more logging

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

(limited to 'server/src')

diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs
index 2adca3c..3c8fefe 100644
--- a/server/src/Thermoprint/Server/API.hs
+++ b/server/src/Thermoprint/Server/API.hs
@@ -23,6 +23,8 @@ import qualified Data.Sequence as Seq
 import Data.Map (Map)
 import qualified Data.Map as Map
 
+import qualified Data.Text as T
+
 import Servant
 import Servant.Server
 import Servant.Server.Internal.Enter
@@ -144,11 +146,13 @@ abortJob jobId = do
   printerIds <- asks (Map.keys . printers)
   found <- fmap or . forM printerIds $ \pId -> do
     (pId', p) <- lookupPrinter $ Just pId
-    liftIO . atomically $ do
+    found <- liftIO . atomically $ do
       current@(Queue pending _ _) <- readTVar $ queue p
       let filtered = Seq.filter (/= castId jobId) pending
       writeTVar (queue p) $ current { pending = filtered }
       return . not $ ((==) `on` length) pending filtered
+    when found . lift . $(logInfo) $ "Removed " <> (T.pack $ show (castId jobId :: Integer)) <> " from " <> (T.pack . show $ pId')
+    return found
   when (not found) $ left err404
 
 listDrafts :: Handler (Map API.DraftId (Maybe DraftTitle))
-- 
cgit v1.2.3