Fix pattern match on consensus era

Author: carbolymer

cardano-api/src/Cardano/Api/Consensus/Internal/Mode.hs

@@ -167,5 +167,5 @@ fromConsensusEraIndex = \case
     AnyCardanoEra BabbageEra
   Consensus.EraIndex (S (S (S (S (S (S (Z (K ())))))))) ->
     AnyCardanoEra ConwayEra
-  Consensus.EraIndex (S (S (S (S (S (S (S _))))))) ->
+  Consensus.EraIndex (S (S (S (S (S (S (S (Z (K ()))))))))) ->
     AnyCardanoEra DijkstraEra