format

cardano-api/internal/Cardano/Api/Query.hs

@@ -236,8 +236,8 @@ data QueryInShelleyBasedEra era result where
     :: QueryInShelleyBasedEra era (Ledger.PParams (ShelleyLedgerEra era))
   QueryProtocolParametersUpdate
     :: QueryInShelleyBasedEra
-        era
-        (Map (Hash GenesisKey) ProtocolParametersUpdate)
+         era
+         (Map (Hash GenesisKey) ProtocolParametersUpdate)
   QueryStakeDistribution
     :: QueryInShelleyBasedEra era (Map (Hash StakePoolKey) Rational)
   QueryUTxO
@@ -287,8 +287,8 @@ data QueryInShelleyBasedEra era result where
   QueryDRepState
     :: Set (Shelley.Credential Shelley.DRepRole StandardCrypto)
     -> QueryInShelleyBasedEra
-        era
-        (Map (Shelley.Credential Shelley.DRepRole StandardCrypto) (L.DRepState StandardCrypto))
+         era
+         (Map (Shelley.Credential Shelley.DRepRole StandardCrypto) (L.DRepState StandardCrypto))
   QueryDRepStakeDistr
     :: Set (Ledger.DRep StandardCrypto)
     -> QueryInShelleyBasedEra era (Map (Ledger.DRep StandardCrypto) L.Coin)
@@ -541,8 +541,8 @@ fromShelleyPoolDistr =
 
 fromShelleyDelegations
   :: Map
-      (Shelley.Credential Shelley.Staking StandardCrypto)
-      (Shelley.KeyHash Shelley.StakePool StandardCrypto)
+       (Shelley.Credential Shelley.Staking StandardCrypto)
+       (Shelley.KeyHash Shelley.StakePool StandardCrypto)
   -> Map StakeCredential PoolId
 fromShelleyDelegations =
   -- TODO: write an appropriate property to show it is safe to use
@@ -686,7 +686,9 @@ toConsensusQueryShelleyBased sbe = \case
       sbe
   QueryFuturePParams ->
     caseShelleyToBabbageOrConwayEraOnwards
-      (const $ error "toConsensusQueryShelleyBased: QueryFuturePParams is only available in the Conway era onwards")
+      ( const $
+          error "toConsensusQueryShelleyBased: QueryFuturePParams is only available in the Conway era onwards"
+      )
       (const $ Some (consensusQueryInEraInMode era Consensus.GetFuturePParams))
       sbe
   QueryDRepState creds ->