Better logging

haskell · Dec 21, 2022 · 00fb3c8 · 00fb3c8
1 parent e807813
commit 00fb3c8
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/HaskellWorks/CabalCache/Concurrent/DownloadQueue.hs b/src/HaskellWorks/CabalCache/Concurrent/DownloadQueue.hs
@@ -72,12 +72,16 @@ runQueue downloadQueue f = do
     Just packageId -> do
       downloadStatus <- f packageId
         & do CMC.handleAll \e -> do
-              liftIO $ CIO.hPutStrLn IO.stderr $ "Warning: Unexpected exception during download: " <> tshow e
+              liftIO $ CIO.hPutStrLn IO.stderr $ "Warning: Unexpected exception during download of " <> packageId <> ": " <> tshow e
               liftIO $ IO.hFlush IO.stderr
               pure DownloadFailure
       case downloadStatus of
-        DownloadSuccess -> do liftIO $ STM.atomically $ commit downloadQueue packageId
-        DownloadFailure -> do liftIO $ STM.atomically $ failDownload downloadQueue packageId
+        DownloadSuccess -> do
+          liftIO $ CIO.hPutStrLn IO.stderr $ "Downloaded " <> packageId
+          liftIO $ STM.atomically $ commit downloadQueue packageId
+        DownloadFailure -> do
+          liftIO $ CIO.hPutStrLn IO.stderr $ "Failed to download " <> packageId
+          liftIO $ STM.atomically $ failDownload downloadQueue packageId
       runQueue downloadQueue f
 
     Nothing -> return ()