Propagate HasCallStack to toConsensusQuery

Add HasCallStack to toConsensusQuery so it propagates the stack trace
from toConsensusQueryShelleyBased's error calls for wrong-era queries.

Author: Jimbo4350

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

@@ -545,6 +545,7 @@ fromShelleyRewardAccounts =
 toConsensusQuery
   :: forall block result
    . ()
+  => HasCallStack
   => Consensus.CardanoBlock StandardCrypto ~ block
   => QueryInMode result
   -> Some (Consensus.Query block)