Fix bug on TUI amount validation

This commit is contained in:
Rene Vergara 2024-07-04 07:46:38 -05:00
parent a8d1333600
commit 06c58f62df
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -504,7 +504,7 @@ mkSendForm bal =
]
where
isAmountValid :: Integer -> Float -> Bool
isAmountValid b i = (fromIntegral b * 100000000.0) >= i
isAmountValid b i = (fromIntegral b / 100000000.0) >= i
label s w =
padBottom (Pad 1) $ vLimit 1 (hLimit 15 $ str s <+> fill ' ') <+> w