diff --git a/src/ZcashHaskell/Keys.hs b/src/ZcashHaskell/Keys.hs index c0b8bdc..a3b20b3 100644 --- a/src/ZcashHaskell/Keys.hs +++ b/src/ZcashHaskell/Keys.hs @@ -27,7 +27,7 @@ import ZcashHaskell.Types (Phrase, Seed) generateWalletSeedPhrase :: IO Phrase generateWalletSeedPhrase = withBorshVarBuffer rustWrapperGenSeedPhrase --- | Get +-- | Derive a cryptographic seed from the given seed phrase. getWalletSeed :: Phrase -> Maybe Seed getWalletSeed p = if BS.length result > 0