fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(jobs): better error message for job failures

Browse Source
This commit is contained in:
Steffen Jost 2022-06-15 16:59:06 +02:00
parent c2e3693490
commit 9628cb5463
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Import/NoModel.hs
View File

@ -101,7 +101,7 @@ import Data.Dynamic.Lens as Import
import System.FilePath as Import hiding (joinPath, normalise, isValid, makeValid) import System.FilePath as Import hiding (joinPath, normalise, isValid, makeValid)
import Numeric.Natural as Import (Natural) 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) import Network.IP.Addr as Import (IP)

2
src/Jobs.hs
View File

@ -474,7 +474,7 @@ handleJobs' wNum = C.mapM_ $ \jctl -> hoist delimitInternalState . withJobWorker
case res of case res of
Just err Just err
| not sentRes -> case err of | 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 () _other -> return ()
where where
logIdent = mkLogIdent wNum logIdent = mkLogIdent wNum