[wip] integrate GetLedgerPeerSnapshot query

Author: geo2a

cardano-api/src/Cardano/Api/Query/Internal/Type/QueryInMode.hs

@@ -427,7 +427,7 @@ decodeStakeSnapshot (SerialisedStakeSnapshots (Serialised ls)) = StakeSnapshot <
 decodeBigLedgerPeerSnapshot
   :: Consensus.ShelleyNodeToClientVersion
   -> Serialised LedgerPeerSnapshot
-  -> Either (LBS.ByteString, DecoderError) LedgerPeerSnapshot
+  -> Either (LBS.ByteString, DecoderError) (LedgerPeerSnapshot BigLedgerPeers)
 decodeBigLedgerPeerSnapshot ntcV (Serialised lps) =
   first
     (lps,)
@@ -694,7 +694,7 @@ toConsensusQueryShelleyBased sbe = \case
       )
       sbe
   QueryLedgerPeerSnapshot ->
-    Some (consensusQueryInEraInMode era (Consensus.GetCBOR Consensus.GetBigLedgerPeerSnapshot))
+    Some (consensusQueryInEraInMode era (Consensus.GetCBOR Consensus.GetLedgerPeerSnapshot))
   QueryStakePoolDefaultVote govActs ->
     caseShelleyToBabbageOrConwayEraOnwards
       ( const $
@@ -1016,7 +1016,7 @@ fromConsensusQueryResultShelleyBased sbe sbeQuery q' r' =
         _ -> fromConsensusQueryResultMismatch
     QueryLedgerPeerSnapshot{} ->
       case q' of
-        Consensus.GetCBOR Consensus.GetBigLedgerPeerSnapshot ->
+        Consensus.GetCBOR Consensus.GetLedgerPeerSnapshot{} ->
           r'
         _ -> fromConsensusQueryResultMismatch
     QueryStakePoolDefaultVote{} ->