From 38272502ea5b6a33ad4624b296c0d61017f83fe4 Mon Sep 17 00:00:00 2001
From: Carlos LopezDeLara <64222734+CarlosLopezDeLara@users.noreply.github.com>
Date: Fri, 31 Jan 2025 23:03:31 -0600
Subject: [PATCH] format

---
 cardano-api/internal/Cardano/Api/Query.hs | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/cardano-api/internal/Cardano/Api/Query.hs b/cardano-api/internal/Cardano/Api/Query.hs
index 79b05e1cb..e481aed7f 100644
--- a/cardano-api/internal/Cardano/Api/Query.hs
+++ b/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 ->