Vergara_Tech/zenith
2
0
Fork 0
Code Issues 24 Pull requests Projects Releases 11 Packages Wiki Activity Actions

rvv001 - Import Viewing Key Bug

Browse source 
Decoding is not working when importing a new Viewing Key
	 TUI is working.
This commit is contained in:
Rene V. Vergara 2025-02-26 21:56:27 -05:00
parent 7688c6dc1b
commit f701e57cbb
1 changed files with 34 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
src/Zenith/GUI.hs
View file

@ -191,9 +191,11 @@ data AppEvent
| ClosePayUsingURI | ClosePayUsingURI
| ProcIfValidURI | ProcIfValidURI
| PreparePaymentURIForm | PreparePaymentURIForm
| SetTimerCount
| ShowNViewingKey | ShowNViewingKey
| CloseNVkShow | CloseNVkShow
| SaveViewKey | SaveViewKey
| ReportVKeySaved
| ShowNSeedPhrase | ShowNSeedPhrase
| CloseNSpShow | CloseNSpShow
| SaveSeedPhrase | SaveSeedPhrase
@ -2108,8 +2110,38 @@ handleEvent wenv node model evt =
-- --
-- Show Import Viewing Key Form -- Show Import Viewing Key Form
-- --
SetTimerCount ->
[ Model $ model & timer .~ 85 ]
ShowNViewingKey -> [Model $ model & nVkShow .~ True & menuPopup .~ False] ShowNViewingKey -> [Model $ model & nVkShow .~ True & menuPopup .~ False]
CloseNVkShow -> [Model $ model & nVkShow .~ False] CloseNVkShow -> [Model $ model & nVkShow .~ False]
SaveViewKey ->
[ Task $ do
pool <- runNoLoggingT $ initPool $ c_dbPath $ model ^. configuration
let inKey = parseVK $ model ^. nVkString
case inKey of
Nothing -> return $ ShowError "Invalid viewing key"
Just k -> do
x <-
importViewingKey
pool
(model ^. nVkName)
(model ^. network)
k
(model ^. nVkBirthday)
case x of
Left e -> return $ ShowError e
Right i -> return $ ReportVKeySaved
]
--
ReportVKeySaved ->
[ Task $ do
pool <- runNoLoggingT $ initPool $ c_dbPath $ model ^. configuration
wL <- getWallets pool (model ^. network)
return $ LoadWallets wL
, Event $ CloseNVkShow
, Event $ ShowMessage "Viewing Key imported!"
, Event $ SetTimerCount
]
-- --
-- Show Import Seed Phrase Form -- Show Import Seed Phrase Form
-- --
@ -2136,9 +2168,8 @@ handleEvent wenv node model evt =
else return $ ShowError "Invalid Birthday Block!" else return $ ShowError "Invalid Birthday Block!"
else return $ ShowError "Seed Phrase not provided" else return $ ShowError "Seed Phrase not provided"
else return $ ShowError "Seed Phrase name invalid!" else return $ ShowError "Seed Phrase name invalid!"
-- , Task $ return CloseNSpShow
] ]
--
ReportSeedSaved -> ReportSeedSaved ->
[ Task $ do [ Task $ do
pool <- runNoLoggingT $ initPool $ c_dbPath $ model ^. configuration pool <- runNoLoggingT $ initPool $ c_dbPath $ model ^. configuration
@ -2146,6 +2177,7 @@ handleEvent wenv node model evt =
return $ LoadWallets wL return $ LoadWallets wL
, Event $ CloseNSpShow , Event $ CloseNSpShow
, Event $ ShowMessage "Seed Phrase imported!!" , Event $ ShowMessage "Seed Phrase imported!!"
, Event $ SetTimerCount
] ]
ShowNSeedPhrase -> [Model $ model & nSpShow .~ True & ShowNSeedPhrase -> [Model $ model & nSpShow .~ True &
@ -2170,24 +2202,6 @@ handleEvent wenv node model evt =
, Event $ ShowError "Balance conversion not available for TestNet" , Event $ ShowError "Balance conversion not available for TestNet"
] ]
CloseFIATBalance -> [Model $ model & displayFIATBalance .~ False] CloseFIATBalance -> [Model $ model & displayFIATBalance .~ False]
SaveViewKey ->
[ Task $ do
pool <- runNoLoggingT $ initPool $ c_dbPath $ model ^. configuration
let inKey = parseVK $ model ^. nVkString
case inKey of
Nothing -> return $ ShowError "Invalid viewing key"
Just k -> do
x <-
importViewingKey
pool
(model ^. nVkName)
(model ^. network)
k
(model ^. nVkBirthday)
case x of
Left e -> return $ ShowError e
Right i -> return $ ShowMessage "Viewing Key imported!"
]
-- --
-- Prepare Viewing Keys -- Prepare Viewing Keys
-- --