redAmounts :: AmountDisplayOpts -> MixedAmount -> [Amount]
orderedAmounts dopts = maybe id (mapM pad) (displayOrder dopts) . amounts
  where
    pad c = fromMaybe (amountWithCommodity c nullamt) . find ((c==) . acommodity)


d
orderedAmounts :: AmountDisplayOpts -> MixedAmount -> [Amount]
orderedAmounts dopts = maybe id (mapM pad) (displayOrder dopts) . amounts
  where
    pad c = fromMaybe (amountWithCommodity c nullamt) . find ((c==) . acommodity)
orderedAmounts dopts = maybe id (mapM pad) (displayOrder dopts) . amounts
  where
    pad c = fromMaybe (amountWithCommodity c nullamt) . find ((c==) . acommodity)