diff --git a/src/ZcashHaskell/Sapling.hs b/src/ZcashHaskell/Sapling.hs index 7ca8ec5..5db9f06 100644 --- a/src/ZcashHaskell/Sapling.hs +++ b/src/ZcashHaskell/Sapling.hs @@ -104,8 +104,7 @@ genSaplingSpendingKey seed = do res = withPureBorshVarBuffer (rustWrapperSaplingSpendingkey seed) -- --- | Attempts to generate a sapling Payment Address using an ExtendedSpendingKey --- | and a Diversifier Index +-- | Attempts to generate a sapling Payment Address using an ExtendedSpendingKey and a Diversifier Index genSaplingPaymentAddress :: SaplingSpendingKey -> Int -> Maybe SaplingReceiver genSaplingPaymentAddress extspk i = if BS.length res == 43