Apply hlint hints

IntersectMBO · Jul 15, 2024 · b65ce64 · b65ce64
1 parent 9d1fd09
commit b65ce64
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 14 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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)