diff --git a/Commands/Chart.hs b/Commands/Chart.hs index c9862dd80..d8ae38749 100644 --- a/Commands/Chart.hs +++ b/Commands/Chart.hs @@ -56,7 +56,7 @@ genPie opts _ l = defaultPieLayout items = mapMaybe (uncurry accountPieItem) $ flatten $ balances $ - ledgerAccountTree (depthFromOpts opts) l + ledgerAccountTree (fromMaybe 99999 $ depthFromOpts opts) $ cacheLedger' l -- | Convert all quantities of MixedAccount to a single commodity amountValue :: MixedAmount -> Double