rvv041 - Address Book functionality -

- Check added :: value to send has to be > 0 and <= balance
2024-05-24 21:55:03 -04:00 · 2024-05-24 21:55:03 -04:00 · 939a23f7ca
commit 939a23f7ca
parent 16b5acabf2
1 changed files with 1 additions and 1 deletions
--- a/src/Zenith/CLI.hs
+++ b/src/Zenith/CLI.hs
@ -530,7 +530,7 @@ mkSendForm bal =
    ]
  where
    isAmountValid :: Integer -> Float -> Bool
-    isAmountValid b i = (fromIntegral b * 100000000.0) >= i
+    isAmountValid b i = ((fromIntegral b * 100000000.0) >= i) && (i > 0)
    label s w =
      padBottom (Pad 1) $ vLimit 1 (hLimit 15 $ str s <+> fill ' ') <+> w