makeRedeemAddress :: NetworkMagic -> RedeemPublicKey -> Address
makeRedeemAddress nm key = makeAddress spendingData attrs
  where
    spendingData = RedeemASD key
    attrs =
        AddrAttributes { aaStakeDistribution = BootstrapEraDistr
                       , aaPkDerivationPath = Nothing
                       , aaNetworkMagic = nm
                       }

-- | Create address from secret key in hardened way.
makeRedeemAddress :: NetworkMagic -> RedeemPublicKey -> Address
makeRedeemAddress nm key = makeAddress spendingData attrs
  where
    spendingData = RedeemASD key
    attrs =
        AddrAttributes { aaStakeDistribution = BootstrapEraDistr
                       , aaPkDerivationPath = Nothing
                       , aaNetworkMagic = nm
                       }

-- | Create address from secret key in hardened way.
makeRedeemAddress nm key = makeAddress spendingData attrs
  where
    spendingData = RedeemASD key
    attrs =
        AddrAttributes { aaStakeDistribution = BootstrapEraDistr
                       , aaPkDerivationPath = Nothing
                       , aaNetworkMagic = nm
                       }

-- | Create address from secret key in hardened way.