Bench profiles #7643
Annotations
15 warnings
|
Node.js 16 actions are deprecated. Please update the following actions to use Node.js 20: actions/checkout@v3, rwe/actions-hlint-setup@v1, rwe/actions-hlint-run@v2. For more information see: https://github.blog/changelog/2023-09-22-github-actions-transitioning-from-node-16-to-node-20/.
|
|
The following actions uses node12 which is deprecated and will be forced to run on node16: rwe/actions-hlint-setup@v1, rwe/actions-hlint-run@v2. For more info: https://github.blog/changelog/2023-06-13-github-actions-all-actions-will-run-on-node16-instead-of-node12-by-default/
|
|
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/
|
|
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/
|
|
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/
|
|
bench/cardano-profile/app/cardano-profile.hs#L27
Suggestion in main in module Main: Redundant $ ▫︎ Found: "Aeson.encode $ Map.names" ▫︎ Perhaps: "Aeson.encode Map.names"
|
|
bench/cardano-profile/app/cardano-profile.hs#L28
Suggestion in main in module Main: Redundant $ ▫︎ Found: "Aeson.encode $ Map.profiles" ▫︎ Perhaps: "Aeson.encode Map.profiles"
|
|
bench/cardano-profile/app/cardano-profile.hs#L39
Warning in main in module Main: Use print ▫︎ Found: "putStrLn $ show (profile :: Profile.Profile)" ▫︎ Perhaps: "print (profile :: Profile.Profile)"
|
|
bench/cardano-profile/app/cardano-profile.hs#L48
Suggestion in cliParser in module Main: Redundant bracket ▫︎ Found: "(OA.command\n \"names\"\n (OA.info\n (pure Names)\n (OA.fullDesc\n <> OA.header \"names\" <> OA.progDesc \"All profiles names\")))\n <>\n (OA.command\n \"all\"\n (OA.info\n (pure All)\n (OA.fullDesc <> OA.header \"all\" <> OA.progDesc \"All profiles\")))\n <>\n (OA.command\n \"make\"\n (OA.info\n (Make <$> OA.argument OA.str (OA.metavar \"PROFILE-NAME\"))\n (OA.fullDesc <> OA.header \"make\" <> OA.progDesc \"Create profile\")))\n <>\n (OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))" ▫︎ Perhaps: "OA.command\n \"names\"\n (OA.info\n (pure Names)\n (OA.fullDesc\n <> OA.header \"names\" <> OA.progDesc \"All profiles names\"))\n <>\n (OA.command\n \"all\"\n (OA.info\n (pure All)\n (OA.fullDesc <> OA.header \"all\" <> OA.progDesc \"All profiles\")))\n <>\n (OA.command\n \"make\"\n (OA.info\n (Make <$> OA.argument OA.str (OA.metavar \"PROFILE-NAME\"))\n (OA.fullDesc <> OA.header \"make\" <> OA.progDesc \"Create profile\")))\n <>\n (OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))"
|
|
bench/cardano-profile/app/cardano-profile.hs#L55
Suggestion in cliParser in module Main: Redundant bracket ▫︎ Found: "(OA.command\n \"all\"\n (OA.info\n (pure All)\n (OA.fullDesc <> OA.header \"all\" <> OA.progDesc \"All profiles\")))\n <>\n (OA.command\n \"make\"\n (OA.info\n (Make <$> OA.argument OA.str (OA.metavar \"PROFILE-NAME\"))\n (OA.fullDesc <> OA.header \"make\" <> OA.progDesc \"Create profile\")))\n <>\n (OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))" ▫︎ Perhaps: "OA.command\n \"all\"\n (OA.info\n (pure All)\n (OA.fullDesc <> OA.header \"all\" <> OA.progDesc \"All profiles\"))\n <>\n (OA.command\n \"make\"\n (OA.info\n (Make <$> OA.argument OA.str (OA.metavar \"PROFILE-NAME\"))\n (OA.fullDesc <> OA.header \"make\" <> OA.progDesc \"Create profile\")))\n <>\n (OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))"
|
|
bench/cardano-profile/app/cardano-profile.hs#L62
Suggestion in cliParser in module Main: Redundant bracket ▫︎ Found: "(OA.command\n \"make\"\n (OA.info\n (Make <$> OA.argument OA.str (OA.metavar \"PROFILE-NAME\"))\n (OA.fullDesc <> OA.header \"make\" <> OA.progDesc \"Create profile\")))\n <>\n (OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))" ▫︎ Perhaps: "OA.command\n \"make\"\n (OA.info\n (Make <$> OA.argument OA.str (OA.metavar \"PROFILE-NAME\"))\n (OA.fullDesc <> OA.header \"make\" <> OA.progDesc \"Create profile\"))\n <>\n (OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))"
|
|
bench/cardano-profile/app/cardano-profile.hs#L69
Suggestion in cliParser in module Main: Redundant bracket ▫︎ Found: "(OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))" ▫︎ Perhaps: "OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\"))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))"
|
|
bench/cardano-profile/app/cardano-profile.hs#L76
Suggestion in cliParser in module Main: Redundant bracket ▫︎ Found: "(OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n (OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\")))" ▫︎ Perhaps: "(OA.command\n \"to-json\"\n (OA.info\n (ToJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"to-json\" <> OA.progDesc \"Data type to JSON\")))\n <>\n OA.command\n \"from-json\"\n (OA.info\n (FromJson <$> OA.argument OA.str (OA.metavar \"FILE\"))\n (OA.fullDesc\n <> OA.header \"from-json\" <> OA.progDesc \"JSON to data type\"))"
|
|
bench/cardano-profile/src/Cardano/Benchmarking/Profile.hs#L2
Warning in module Cardano.Benchmarking.Profile: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE DeriveGeneric #-}"
|
|
bench/cardano-profile/src/Cardano/Benchmarking/Profile.hs#L260
Warning in name in module Cardano.Benchmarking.Profile: Redundant lambda ▫︎ Found: "name str\n = \\ p\n -> if (Types.name p) /= \"\" then\n error \"name: `name` already set (not empty).\"\n else\n p {Types.name = str}" ▫︎ Perhaps: "name str p\n = if (Types.name p) /= \"\" then\n error \"name: `name` already set (not empty).\"\n else\n p {Types.name = str}"
|
This job succeeded
Loading