From 06c58f62df5d1ce17e8af40b68d48da501d37833 Mon Sep 17 00:00:00 2001 From: Rene Vergara Date: Thu, 4 Jul 2024 07:46:38 -0500 Subject: [PATCH] Fix bug on TUI amount validation --- src/Zenith/CLI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Zenith/CLI.hs b/src/Zenith/CLI.hs index 13d1d2d..db28e5e 100644 --- a/src/Zenith/CLI.hs +++ b/src/Zenith/CLI.hs @@ -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