 Multiply an amount's quantity (and its total price, if it has one) by a constant.
multiplyAmount :: Quantity -> Amount -> Amount
multiplyAmount n = transformAmount (*n)

--
multiplyAmount :: Quantity -> Amount -> Amount
multiplyAmount n = transformAmount (*n)
multiplyAmount n = transformAmount (*n)