From 9628cb5463c06fe7c9b558438a13e69b3526dc15 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 15 Jun 2022 16:59:06 +0200 Subject: [PATCH] chore(jobs): better error message for job failures --- src/Import/NoModel.hs | 2 +- src/Jobs.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Import/NoModel.hs b/src/Import/NoModel.hs index 17d24b4ab..c8b349805 100644 --- a/src/Import/NoModel.hs +++ b/src/Import/NoModel.hs @@ -101,7 +101,7 @@ import Data.Dynamic.Lens as Import import System.FilePath as Import hiding (joinPath, normalise, isValid, makeValid) import Numeric.Natural as Import (Natural) --- import Data.Ratio as Import ((%)) +-- import Data.Ratio as Import ((%)) -- tracking ratio with zero denominator bug import Network.IP.Addr as Import (IP) diff --git a/src/Jobs.hs b/src/Jobs.hs index fccffc236..eb30e3137 100644 --- a/src/Jobs.hs +++ b/src/Jobs.hs @@ -474,7 +474,7 @@ handleJobs' wNum = C.mapM_ $ \jctl -> hoist delimitInternalState . withJobWorker case res of Just err | not sentRes -> case err of - SomeException err' -> $logErrorS logIdent $ tshow (typeOf err') <> ": " <> pack (displayException err') + SomeException err' -> $logErrorS logIdent $ tshow (typeOf err') <> ": " <> pack (displayException err') <> "JOB: " <> tshow jctl _other -> return () where logIdent = mkLogIdent wNum