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