Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 21 Pull requests Projects Releases 6 Packages Wiki Activity

rvv041 - Address Book functionality -

Browse source 
- Check added ::   value to send has to be > 0 and <= balance
This commit is contained in:
Rene V. Vergara A. 2024-05-24 21:55:03 -04:00
parent 16b5acabf2
commit 939a23f7ca
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Zenith/CLI.hs
View file

@ -530,7 +530,7 @@ mkSendForm bal =
] ]
where where
isAmountValid :: Integer -> Float -> Bool 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 = label s w =
padBottom (Pad 1) $ vLimit 1 (hLimit 15 $ str s <+> fill ' ') <+> w padBottom (Pad 1) $ vLimit 1 (hLimit 15 $ str s <+> fill ' ') <+> w