test for job results #106
Annotations
1 error and 6 warnings
|
|
|
test/Test.hs#L62
Suggestion in main in module Test: Redundant bracket ▫︎ Found: "(fromMaybe \"localhost\") <$> lookupEnv \"PGHOST\"" ▫︎ Perhaps: "fromMaybe \"localhost\" <$> lookupEnv \"PGHOST\""
|
|
test/Test.hs#L63
Suggestion in main in module Test: Redundant bracket ▫︎ Found: "(fromMaybe \"jobs_test\") <$> lookupEnv \"PGUSER\"" ▫︎ Perhaps: "fromMaybe \"jobs_test\" <$> lookupEnv \"PGUSER\""
|
|
test/Test.hs#L64
Suggestion in main in module Test: Redundant bracket ▫︎ Found: "(fromMaybe \"jobs_test\") <$> lookupEnv \"PGPASSWORD\"" ▫︎ Perhaps: "fromMaybe \"jobs_test\" <$> lookupEnv \"PGPASSWORD\""
|
|
test/Test.hs#L65
Suggestion in main in module Test: Redundant bracket ▫︎ Found: "(fromMaybe \"jobs_test\") <$> lookupEnv \"PGDATABASE\"" ▫︎ Perhaps: "fromMaybe \"jobs_test\" <$> lookupEnv \"PGDATABASE\""
|
|
test/Test.hs#L66
Suggestion in main in module Test: Redundant bracket ▫︎ Found: "(maybe (fromIntegral (5432 :: Int)) read) <$> lookupEnv \"PGPORT\"" ▫︎ Perhaps: "maybe (fromIntegral (5432 :: Int)) read <$> lookupEnv \"PGPORT\""
|
|
test/Test.hs#L331
Suggestion in payloadGen in module Test: Move brackets to avoid $ ▫︎ Found: "PayloadSucceed <$> Gen.element [1, 2, 3]\n <*> (Gen.maybe $ Gen.string (Range.singleton 10) Gen.alphaNum)" ▫︎ Perhaps: "PayloadSucceed <$> Gen.element [1, 2, 3]\n <*> Gen.maybe (Gen.string (Range.singleton 10) Gen.alphaNum)"
|
The logs for this run have expired and are no longer available.
Loading