Allow immediate & delayed job deletion #122
saurabhnandaAnnotations
1 error and 4 warnings
|
hlint-3.5
HLint failed with status: 1. Suggestion (4)
|
|
hlint-3.5:
src/OddJobs/ConfigBuilder.hs#L363
Suggestion in defaultDelayedJobDeletionSql in module OddJobs.ConfigBuilder: Redundant bracket ▫︎ Found: "(flip DL.filter) ([minBound .. maxBound] :: [OddJobs.Types.Status])" ▫︎ Perhaps: "flip DL.filter ([minBound .. maxBound] :: [OddJobs.Types.Status])"
|
|
hlint-3.5:
src/OddJobs/ConfigBuilder.hs#L363
Suggestion in defaultDelayedJobDeletionSql in module OddJobs.ConfigBuilder: Use lambda-case ▫︎ Found: "\\ st\n -> case st of\n Success -> True\n Queued -> False\n Failed -> True\n Cancelled -> True\n Retry -> False\n Locked -> False" ▫︎ Perhaps: "\\case\n Success -> True\n Queued -> False\n Failed -> True\n Cancelled -> True\n Retry -> False\n Locked -> False" ▫︎ Note: may require `{-# LANGUAGE LambdaCase #-}` adding to the top of the file
|
|
hlint-3.5:
src/OddJobs/Job.hs#L491
Suggestion in jobMonitor in module OddJobs.Job: Redundant bracket ▫︎ Found: "[a1, a2, a3] <> (maybeToList a4)" ▫︎ Perhaps: "[a1, a2, a3] <> maybeToList a4"
|
|
hlint-3.5:
src/OddJobs/Job.hs#L733
Suggestion in jobDeletionPoller in module OddJobs.Job: Redundant $ ▫︎ Found: "forever $ (delaySeconds =<< getPollingInterval)" ▫︎ Perhaps: "forever (delaySeconds =<< getPollingInterval)"
|