rvv041 - Address Book functionality -
- Check added :: value to send has to be > 0 and <= balance
This commit is contained in:
parent
16b5acabf2
commit
939a23f7ca
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue