Merge branch 'milestone2' into rvv041

Reviewed-on: #83

.gitmodules

@@ -1,4 +1,4 @@
 [submodule "zcash-haskell"]
 	path = zcash-haskell
 	url = https://git.vergara.tech/Vergara_Tech/zcash-haskell.git
-	branch = dev040
+	branch = milestone2

CHANGELOG.md

@@ -5,6 +5,29 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+## [0.5.2.0-beta]
+
+### Changed
+
+- Update to `zcash-haskell-0.6.2.0` to increase performance of transaction creation
+
+### Fixed
+
+- Truncation of transaction ID when displaying a successfully sent transaction
+- Missing command in menu for Send
+
+## [0.5.1.1-beta.1]
+
+### Changed
+
+- Installation instructions in README
+
+## [0.5.1.1-beta]
+
+### Added
+
+- Implement CLI changes to send transactions
+
 ## [0.5.0.0]
 
 ### Added

src/Zenith/CLI.hs

@@ -213,6 +213,7 @@ drawUI s = [splashDialog s, helpDialog s, displayDialog s, inputDialog s, ui s]
            [ capCommand "W" "allets"
            , capCommand "A" "ccounts"
            , capCommand "V" "iew address"
+           , capCommand "S" "end Tx"
            , capCommand "Q" "uit"
            , str $ show (st ^. timer)
            ])
@@ -347,7 +348,7 @@ drawUI s = [splashDialog s, helpDialog s, displayDialog s, inputDialog s, ui s]
                   (str
                      " _____          _ _   _     \n|__  /___ _ __ (_) |_| |__\n  / // _ \\ '_ \\| | __| '_ \\\n / /|  __/ | | | | |_| | | |\n/____\\___|_| |_|_|\\__|_| |_|") <=>
                 C.hCenter
-                  (withAttr titleAttr (str "Zcash Wallet v0.5.1.0-beta")) <=>
+                  (withAttr titleAttr (str "Zcash Wallet v0.5.2.0-beta")) <=>
                 C.hCenter (withAttr blinkAttr $ str "Press any key..."))
         else emptyWidget
     capCommand :: String -> String -> Widget Name
@@ -458,7 +459,11 @@ drawUI s = [splashDialog s, helpDialog s, displayDialog s, inputDialog s, ui s]
           withBorderStyle unicodeBold $
           D.renderDialog
             (D.dialog (Just $ txt "Sending Transaction") Nothing 50)
-            (padAll 1 (str $ st ^. msg))
+            (padAll
+               1
+               (strWrapWith
+                  (WrapSettings False True NoFill FillAfterFirst)
+                  (st ^. msg)))
         BlankDisplay -> emptyWidget
 
 mkInputForm :: DialogInput -> Form DialogInput e Name

zcash-haskell

@@ -1 +1 @@
-Subproject commit 9dddb42bb3ab78ed0c4d44efb00960ac112c2ce6
+Subproject commit 90c8a7c3028bd6836dea5655221277a25d457653

zenith.cabal

@@ -1,6 +1,6 @@
 cabal-version:    3.0
 name:             zenith
-version:          0.5.1.0-beta
+version:          0.5.2.0-beta
 license:          MIT
 license-file:     LICENSE
 author:           Rene Vergara