fourmolu the whole project with new version #931
Annotations
14 warnings
build
ubuntu-latest pipelines will use ubuntu-24.04 soon. For more details, see https://github.com/actions/runner-images/issues/10636
|
build
The `set-output` command is deprecated and will be disabled soon. Please upgrade to using Environment Files. For more information see: https://github.blog/changelog/2022-10-11-github-actions-deprecating-save-state-and-set-output-commands/
|
build
The `set-output` command is deprecated and will be disabled soon. Please upgrade to using Environment Files. For more information see: https://github.blog/changelog/2022-10-11-github-actions-deprecating-save-state-and-set-output-commands/
|
build
The `set-output` command is deprecated and will be disabled soon. Please upgrade to using Environment Files. For more information see: https://github.blog/changelog/2022-10-11-github-actions-deprecating-save-state-and-set-output-commands/
|
build:
cardano-chain-gen/src/Cardano/Mock/Query.hs#L141
Suggestion in queryConstitutionAnchor in module Cardano.Mock.Query: Fuse on/on ▫︎ Found: "from $ table @Db.Constitution `innerJoin` table @Db.VotingAnchor\n `on`\n (\\ (constit :& anchor)\n -> (constit ^. Db.ConstitutionVotingAnchorId)\n ==. (anchor ^. Db.VotingAnchorId))\n `innerJoin` table @Db.EpochState\n `on`\n (\\ (constit :& _ :& epoch)\n -> just (constit ^. Db.ConstitutionId)\n ==. (epoch ^. Db.EpochStateConstitutionId))" ▫︎ Perhaps: "(from $ table @Db.Constitution `innerJoin` table @Db.VotingAnchor)\n `on`\n (((\\ (constit :& anchor)\n -> (constit ^. Db.ConstitutionVotingAnchorId)\n ==. (anchor ^. Db.VotingAnchorId))\n `innerJoin` table @Db.EpochState)\n . (\\ (constit :& _ :& epoch)\n -> just (constit ^. Db.ConstitutionId)\n ==. (epoch ^. Db.EpochStateConstitutionId)))"
|
build:
cardano-chain-gen/src/Cardano/Mock/Query.hs#L176
Suggestion in queryTreasuryDonations in module Cardano.Mock.Query: Use =<< ▫︎ Found: "join (unValue <$> res)" ▫︎ Perhaps: "unValue =<< res"
|
build:
cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Shelley.hs#L3
Warning in module Cardano.Mock.Forging.Tx.Shelley: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE OverloadedStrings #-}"
|
build:
cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Conway/Scenarios.hs#L55
Suggestion in delegateAndSendBlocks in module Cardano.Mock.Forging.Tx.Conway.Scenarios: Use zipWith ▫︎ Found: "map\n (\\ (payCred, stakeCred)\n -> Addr Testnet payCred (StakeRefBase stakeCred))\n (zip payCreds stakeCreds)" ▫︎ Perhaps: "Prelude.zipWith\n (Prelude.curry\n (\\ (payCred, stakeCred)\n -> Addr Testnet payCred (StakeRefBase stakeCred)))\n payCreds stakeCreds"
|
build:
cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Conway/Scenarios.hs#L69
Suggestion in mkDelegateBlocks in module Cardano.Mock.Forging.Tx.Conway.Scenarios: Use zipWith ▫︎ Found: "map (mkDelegCert state') $ zip (cycle [0, 1, 2]) txCreds" ▫︎ Perhaps: "Prelude.zipWith\n (Prelude.curry (mkDelegCert state')) (cycle [0, 1, 2]) txCreds"
|
build:
cardano-chain-gen/test/Test/Cardano/Db/Mock/UnifiedApi.hs#L69
Warning in forgeAndSubmitBlocks in module Test.Cardano.Db.Mock.UnifiedApi: Use replicateM ▫︎ Found: "forM [1 .. blocksToCreate]\n $ \\ _ -> forgeNextFindLeaderAndSubmit interpreter mockServer []" ▫︎ Perhaps: "replicateM\n blocksToCreate\n (forgeNextFindLeaderAndSubmit interpreter mockServer [])"
|
build:
cardano-db/src/Cardano/Db/Version/V13_0/Query.hs#L3
Warning in module Cardano.Db.Version.V13_0.Query: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE OverloadedStrings #-}"
|
build:
cardano-db-sync/app/http-get-json-metadata.hs#L13
Warning in module Main: Avoid restricted alias ▫︎ Found: "import qualified Data.ByteString.Char8 as BSC" ▫︎ Perhaps: "import qualified Data.ByteString.Char8 as BS" ▫︎ Note: may break the code
|
build:
cardano-db-sync/src/Cardano/DbSync/DbAction.hs#L59
Warning in waitDoneInit in module Cardano.DbSync.DbAction: Use unless ▫︎ Found: "if isDone then pure () else retry" ▫︎ Perhaps: "Control.Monad.unless isDone $ retry"
|
build:
cardano-db-sync/src/Cardano/DbSync/DbAction.hs#L59
Warning in waitDoneInit in module Cardano.DbSync.DbAction: Use unless ▫︎ Found: "if isDone then pure () else retry" ▫︎ Perhaps: "Control.Monad.unless isDone retry"
|