whitespace

This commit is contained in:
Simon Michael 2011-06-24 02:41:37 +00:00
parent 059825a9b2
commit 6a61c96481

View File

@ -175,7 +175,7 @@ formatAccount opts accountName depth balance leftJustified min max field = case
Just m -> formatValue leftJustified Nothing max $ replicate (depth * m) ' '
Nothing -> formatValue leftJustified Nothing max $ replicate depth ' '
Total -> formatValue leftJustified min max $ showAmountWithoutPrice balance
_ -> ""
_ -> ""
where
a = maybe "" (accountNameDrop (drop_ opts)) accountName