chore(jobs): better error message for job failures

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)
 

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