 Strip all prices from an Amount
amountStripPrices :: Amount -> Amount
amountStripPrices a = a{aprice=Nothing}

sh
amountStripPrices :: Amount -> Amount
amountStripPrices a = a{aprice=Nothing}
amountStripPrices a = a{aprice=Nothing}