diff --git a/lib/wallet/src/Cardano/Wallet/Shelley/Compatibility.hs b/lib/wallet/src/Cardano/Wallet/Shelley/Compatibility.hs index 96e36cd7fb6..4ebdf1b992e 100644 --- a/lib/wallet/src/Cardano/Wallet/Shelley/Compatibility.hs +++ b/lib/wallet/src/Cardano/Wallet/Shelley/Compatibility.hs @@ -1381,19 +1381,12 @@ toCardanoTxOut era = case era of addrInEra = tina "toCardanoTxOut: malformed address" [ Cardano.AddressInEra (Cardano.ShelleyAddressInEra Cardano.ShelleyBasedEraShelley) -<<<<<<< HEAD <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) , Cardano.AddressInEra Cardano.ByronAddressInAnyEra <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) -======= - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) - - , Cardano.AddressInEra Cardano.ByronAddressInAnyEra - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) ->>>>>>> b97557afc6 (Update dependencies) ] toAllegraTxOut :: HasCallStack => W.TxOut -> Cardano.TxOut ctx AllegraEra @@ -1408,19 +1401,12 @@ toCardanoTxOut era = case era of addrInEra = tina "toCardanoTxOut: malformed address" [ Cardano.AddressInEra (Cardano.ShelleyAddressInEra Cardano.ShelleyBasedEraAllegra) -<<<<<<< HEAD <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) , Cardano.AddressInEra Cardano.ByronAddressInAnyEra <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) -======= - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) - - , Cardano.AddressInEra Cardano.ByronAddressInAnyEra - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) ->>>>>>> b97557afc6 (Update dependencies) ] toMaryTxOut :: HasCallStack => W.TxOut -> Cardano.TxOut ctx MaryEra @@ -1435,19 +1421,12 @@ toCardanoTxOut era = case era of addrInEra = tina "toCardanoTxOut: malformed address" [ Cardano.AddressInEra (Cardano.ShelleyAddressInEra Cardano.ShelleyBasedEraMary) -<<<<<<< HEAD <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) , Cardano.AddressInEra Cardano.ByronAddressInAnyEra <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) -======= - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) - - , Cardano.AddressInEra Cardano.ByronAddressInAnyEra - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) ->>>>>>> b97557afc6 (Update dependencies) ] toAlonzoTxOut :: HasCallStack => W.TxOut -> Cardano.TxOut ctx AlonzoEra @@ -1464,19 +1443,12 @@ toCardanoTxOut era = case era of addrInEra = tina "toCardanoTxOut: malformed address" [ Cardano.AddressInEra (Cardano.ShelleyAddressInEra Cardano.ShelleyBasedEraAlonzo) -<<<<<<< HEAD <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) , Cardano.AddressInEra Cardano.ByronAddressInAnyEra <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) -======= - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) - - , Cardano.AddressInEra Cardano.ByronAddressInAnyEra - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) ->>>>>>> b97557afc6 (Update dependencies) ] toBabbageTxOut :: HasCallStack => W.TxOut -> Cardano.TxOut ctx BabbageEra @@ -1493,19 +1465,12 @@ toCardanoTxOut era = case era of addrInEra = tina "toCardanoTxOut: malformed address" [ Cardano.AddressInEra (Cardano.ShelleyAddressInEra Cardano.ShelleyBasedEraBabbage) -<<<<<<< HEAD <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) , Cardano.AddressInEra Cardano.ByronAddressInAnyEra <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) -======= - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsShelleyAddress addr) - - , Cardano.AddressInEra Cardano.ByronAddressInAnyEra - <$> eitherToMaybe (Cardano.deserialiseFromRawBytes AsByronAddress addr) ->>>>>>> b97557afc6 (Update dependencies) ] toCardanoValue :: TokenBundle.TokenBundle -> Cardano.Value @@ -1519,13 +1484,9 @@ toCardanoValue tb = Cardano.valueFromList $ toCardanoAssetName (W.UnsafeTokenName name) = just "toCardanoValue" "TokenName" -<<<<<<< HEAD [ eitherToMaybe $ Cardano.deserialiseFromRawBytes Cardano.AsAssetName name ] -======= - [eitherToMaybe $ Cardano.deserialiseFromRawBytes Cardano.AsAssetName name] ->>>>>>> b97557afc6 (Update dependencies) coinToQuantity = fromIntegral . W.unCoin toQuantity = fromIntegral . W.unTokenQuantity