rvv001 - Issue 0122 - Generate Viewing Keys

The Viewing Keys deriving functions are now
                      integrated to the GUI module.

src/Zenith/GUI.hs

@@ -40,7 +40,7 @@ import System.FilePath ((</>))
 import Text.Printf (printf)
 import Text.Wrap (FillScope(..), FillStrategy(..), WrapSettings(..), wrapText)
 import TextShow hiding (toText)
-import ZcashHaskell.Keys (generateWalletSeedPhrase)
+import ZcashHaskell.Keys (generateWalletSeedPhrase, deriveUfvk, deriveUivk)
 import ZcashHaskell.Orchard
   ( getSaplingFromUA
   , isValidUnifiedAddress
@@ -160,6 +160,7 @@ data AppEvent
   | ShowFIATBalance
   | DisplayFIATBalance Double Double
   | CloseFIATBalance
+  | PrepareViewingKey !VkTypeDef !(Maybe (Entity ZcashAccount))
   | ShowViewingKey !VkTypeDef !T.Text
   | CopyViewingKey !T.Text !T.Text
   | CloseShowVK
@@ -416,18 +417,20 @@ buildUI wenv model = widgetTree
            [ box_
                [ alignLeft
                , onClick
-                   (ShowViewingKey
+                   (PrepareViewingKey
                       VkFull
-                      "VKFull->ztestsapling1tgjr4zppwk4ne8xy6gdq4z2gwq7dmf5jq8z2ctpn8nlmtse0a74fa5z0m8z383gmpgqz6q6duu4")
+                      currentAccount
+                   )
                ]
                (hstack [label "Full VK", filler]) `styleBasic`
              [bgColor white, borderB 1 gray, padding 3]
            , box_
                [ alignLeft
-               , onClick $
-                 (ShowViewingKey
-                    VkIncoming
-                    "VKIncoming->ztestsapling1tgjr4zppwk4ne8xy6gdq4z2gwq7dmf5jq8z2ctpn8nlmtse0a74fa5z0m8z383gmpgqz6q6duu4")
+               , onClick
+                  (PrepareViewingKey
+                      VkIncoming
+                      currentAccount
+                  )
                ]
                (hstack [label "Incoming VK", filler]) `styleBasic`
              [bgColor white, borderB 1 gray, padding 3]
@@ -1761,31 +1764,35 @@ handleEvent wenv node model evt =
       ]
     ShowFIATBalance ->
       if model ^. network == MainNet
-        then [Task $ sfBalance (model ^. configuration)]
+        then [ Task $ sfBalance (model ^. configuration) ]
         else [ Model $ model & zPrice .~ 0.0 & aBal .~ 0.0
              , Event $ ShowError "Balance conversion not available for TestNet"
              ]
     CloseFIATBalance -> [Model $ model & displayFIATBalance .~ False]
     --
+    -- Prepare Viewing Keys
+    --
+    PrepareViewingKey vkType cAcc ->
+      case vkType of
+        VkFull -> [ Task $ getFullVk (model ^. network) cAcc  ]
+        VkIncoming -> [ Task $ getIncomingVk (model ^. network) cAcc  ]
+    --
     -- Show Viewing Keys
     --
     ShowViewingKey vkType vkText ->
       case vkType of
-        VkFull ->
-          [ Model $
-            model & vkTypeName .~ "Full" & vkData .~ vkText & viewingKeyDisplay .~
-            True &
-            menuPopup .~
-            False
-          ]
-        VkIncoming ->
-          [ Model $
-            model & vkTypeName .~ "Incoming" & vkData .~ vkText &
-            viewingKeyDisplay .~
-            True &
-            menuPopup .~
-            False
-          ]
+        VkFull -> [ Model $ 
+                    model & vkTypeName .~ "Full"
+                          & vkData .~ vkText
+                          & viewingKeyDisplay .~ True
+                          & menuPopup .~ False
+                  ]
+        VkIncoming -> [ Model $
+                        model & vkTypeName .~ "Incoming" 
+                              & vkData .~ vkText
+                              & viewingKeyDisplay .~ True 
+                              & menuPopup .~ False
+                      ]
     --
     -- Display PaymentURI Form
     --
@@ -2011,6 +2018,32 @@ handleEvent wenv node model evt =
     procIfValidURI :: T.Text -> IO AppEvent
     procIfValidURI ustr = do
       return $ ShowSend
+    --
+    -- Get Full Viewing Key  
+    --
+    getFullVk :: ZcashNet -> Maybe (Entity ZcashAccount) ->  IO AppEvent
+    getFullVk n cAcc = do
+      case cAcc of
+        Nothing -> return $ ShowMessage "Viewing Key Error: No account selected!"
+        Just acc -> do
+            let osk = getOrchSK $ zcashAccountOrchSpendKey $ entityVal acc
+            let ssk = getSapSK $ zcashAccountSapSpendKey $ entityVal acc
+            let tsk = getTranSK $ zcashAccountTPrivateKey $ entityVal acc        
+            fvk <- deriveUfvk n osk ssk tsk 
+            return $ ShowViewingKey VkFull fvk 
+    --
+    -- Get Incoming Viewing Key  
+    --
+    getIncomingVk :: ZcashNet -> Maybe (Entity ZcashAccount) ->  IO AppEvent
+    getIncomingVk n cAcc = do
+      case cAcc of
+        Nothing -> return $ ShowMessage "Viewing Key Error: No account selected!"
+        Just acc -> do
+            let osk = getOrchSK $ zcashAccountOrchSpendKey $ entityVal acc
+            let ssk = getSapSK $ zcashAccountSapSpendKey $ entityVal acc
+            let tsk = getTranSK $ zcashAccountTPrivateKey $ entityVal acc        
+            ivk <- deriveUivk n osk ssk tsk 
+            return $ ShowViewingKey VkIncoming ivk 
 
 scanZebra ::
      T.Text

src/Zenith/Utils.hs

@@ -16,8 +16,8 @@ import Data.Char (isAlphaNum, isSpace)
 import Data.Functor (void)
 import Data.Maybe
 import Data.Ord (clamp)
-import Data.Scientific (Scientific(..), scientific)
-import Data.Scientific (Scientific, toRealFloat)
+import Data.Scientific (Scientific(..), scientific, Scientific, toRealFloat)
+--import Data.Scientific (Scientific, toRealFloat)
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as E
 import qualified Data.Text.Encoding as TE