more logging

1 files changed, 5 insertions, 1 deletions

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))