diff --git a/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs b/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs index 96f545843a..9d492d6d41 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs @@ -555,10 +555,11 @@ parseUpdateProposalTTL = parseSoftforkRule :: Parser SoftforkRule parseSoftforkRule = - SoftforkRule - <$> ( rationalToLovelacePortion - <$> parseFraction "softfork-init-thd" "Propose initial threshold (right after proposal is confirmed)." - ) + ( SoftforkRule . rationalToLovelacePortion + <$> parseFraction + "softfork-init-thd" + "Propose initial threshold (right after proposal is confirmed)." + ) <*> ( rationalToLovelacePortion <$> parseFraction "softfork-min-thd" "Propose minimum threshold (threshold can't be less than this)." ) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs index 3ae63b6c6a..2e2ad6349b 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs @@ -1384,11 +1384,12 @@ pProposalFile balExUnits = pCurrentTreasuryValueAndDonation :: ShelleyBasedEra era -> Parser (Maybe (TxCurrentTreasuryValue, TxTreasuryDonation)) -pCurrentTreasuryValueAndDonation sbe = +pCurrentTreasuryValueAndDonation = caseShelleyToBabbageOrConwayEraOnwards (const $ pure Nothing) - (const $ optional ((,) <$> pCurrentTreasuryValue' <*> pTreasuryDonation')) - sbe + ( const $ + optional ((,) <$> pCurrentTreasuryValue' <*> pTreasuryDonation') + ) pCurrentTreasuryValue' :: Parser TxCurrentTreasuryValue pCurrentTreasuryValue' = @@ -3608,8 +3609,7 @@ pAlwaysAbstain = pVoteAnchor :: Parser (VoteUrl, L.SafeHash L.StandardCrypto L.AnchorData) pVoteAnchor = - (,) - <$> (VoteUrl <$> pUrl "anchor-url" "Vote anchor URL") + ((,) . VoteUrl <$> pUrl "anchor-url" "Vote anchor URL") <*> pVoteAnchorDataHash pVoteAnchorDataHash :: Parser (L.SafeHash L.StandardCrypto L.AnchorData) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs index 7d4e74dcba..ae6615b6e4 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs @@ -5,7 +5,6 @@ {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE TypeApplications #-} module Cardano.CLI.Types.Errors.TxValidationError ( TxAuxScriptsValidationError (..) diff --git a/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/Committee.hs b/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/Committee.hs index aa41f3c480..5131cfddea 100644 --- a/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/Committee.hs +++ b/cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/Committee.hs @@ -1,5 +1,4 @@ {-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE TypeApplications #-} {- HLINT ignore "Use camelCase" -} diff --git a/cardano-cli/test/cardano-cli-test/Test/Cli/JSON.hs b/cardano-cli/test/cardano-cli-test/Test/Cli/JSON.hs index daad72d4c6..e199661b5c 100644 --- a/cardano-cli/test/cardano-cli-test/Test/Cli/JSON.hs +++ b/cardano-cli/test/cardano-cli-test/Test/Cli/JSON.hs @@ -1,5 +1,4 @@ {-# LANGUAGE NumericUnderscores #-} -{-# LANGUAGE OverloadedStrings #-} module Test.Cli.JSON ( hprop_json_roundtrip_delegations_and_rewards @@ -44,8 +43,7 @@ genDelegationsAndRewards = do genOpCertIntervalInformation :: Gen OpCertIntervalInformation genOpCertIntervalInformation = do - createOpCertIntervalInfo - <$> (CurrentKesPeriod <$> genWord64) + (createOpCertIntervalInfo . CurrentKesPeriod <$> genWord64) <*> (OpCertStartingKesPeriod <$> genWord64) <*> (OpCertEndingKesPeriod <$> genWord64) <*> Gen.maybe (SlotsTillKesKeyExpiry <$> genSlotNo)