Vergara_Tech
/
zenith
2
0
Fork 0
Code Issues 29 Pull Requests Packages Projects Releases 5 Wiki Activity

rvv041 #82

Merged
pitmutt merged 30 commits from rvv041 into milestone2 2024-06-07 20:03:06 +00:00
Conversation 0 Commits 30 Files Changed 9 +1 -1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 939a23f7ca - Show all commits

2
src/Zenith/CLI.hs
View File

@ -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