Simplify deserialiseFromTextEnvelopeCddlAnyOf

IntersectMBO · Oct 28, 2023 · c8ed7de · c8ed7de
1 parent 9c8ffe3
commit c8ed7de
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/cardano-api/internal/Cardano/Api/SerialiseLedgerCddl.hs b/cardano-api/internal/Cardano/Api/SerialiseLedgerCddl.hs
@@ -269,10 +269,9 @@ deserialiseFromTextEnvelopeCddlAnyOf types teCddl =
 
       Just (FromCDDLWitness ttoken f) -> do
          AnyCardanoEra era <- cddlTypeToEra ttoken
-         case cardanoEraStyle era of
-           LegacyByronEra -> Left TextEnvelopeCddlErrByronKeyWitnessUnsupported
-           ShelleyBasedEra sbe ->
-             f . InAnyCardanoEra era <$> deserialiseWitnessLedgerCddl sbe teCddl
+         forEraInEon era
+           (Left TextEnvelopeCddlErrByronKeyWitnessUnsupported)
+           (\sbe -> f . InAnyCardanoEra era <$> deserialiseWitnessLedgerCddl sbe teCddl)
   where
    actualType :: Text
    actualType = teCddlType teCddl