Vergara_Tech/zcash-haskell
2
0
Fork 0
Code Issues Pull requests Projects Releases 8 Packages Wiki Activity Actions

feat: modify the vk derivator

Browse source
This commit is contained in:
Rene Vergara 2025-02-10 09:38:29 -06:00
parent b99a633316
commit 74042e2d6b
Signed by: pitmutt
SSH key fingerprint: SHA256:vNa8FIqbBZjV9hOCkXyOzd7gqWCMCfkcfiPH2zaGfQ0
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ZcashHaskell/Keys.hs
View file

@ -99,7 +99,7 @@ deriveUfvk ::
-> OrchardSpendingKey
-> SaplingSpendingKey
-> TransparentSpendingKey
-> IO T.Text
-> IO ValidVk
deriveUfvk net okey skey tkey = do
tSec <- deriveFullTransparentNode tkey
let oSec = deriveOrchardFvk okey
@ -111,7 +111,6 @@ deriveUfvk net okey skey tkey = do
Nothing -> fail "Unable to derive Sapling viewing key"
Just sSec' ->
return $
encodeVK $
FullVk $
UnifiedFullViewingKey
(case net of
@ -127,7 +126,7 @@ deriveUivk ::
-> OrchardSpendingKey
-> SaplingSpendingKey
-> TransparentSpendingKey
-> IO T.Text
-> IO ValidVk
deriveUivk net okey skey tkey = do
tSec <- deriveIncomingTransparentNode tkey
let oSec = deriveOrchardIvk okey
@ -139,7 +138,6 @@ deriveUivk net okey skey tkey = do
Nothing -> fail "Unable to derive Sapling viewing key"
Just sSec' ->
return $
encodeVK $
IncomingVk $
UnifiedIncomingViewingKey
(case net of