fixup! Update GetBigLedgerPeerSnapshot query

Author: geo2a

ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/Query.hs

@@ -959,7 +959,10 @@ encodeShelleyQuery query = case query of
       then CBOR.encodeListLen 2 <> CBOR.encodeWord8 34 <> CBOR.encodeWord8 peerKindTag
       else CBOR.encodeListLen 1 <> CBOR.encodeWord8 34
    where
-    tag = case kind of AllLedgerPeers -> 0; BigLedgerPeers -> 1
+    peerKindTag =
+      case peerKind of
+        AllLedgerPeers -> 0
+        BigLedgerPeers -> 1
   QueryStakePoolDefaultVote stakePoolKey ->
     CBOR.encodeListLen 2 <> CBOR.encodeWord8 35 <> LC.toEraCBOR @era stakePoolKey
   GetPoolDistr2 poolids ->