AmountPriceDebug (Just (UnitPrice pa))  = " @ "  ++ showAmountDebug pa
sho
showAmountPriceDebug (Just (UnitPrice pa))  = " @ "  ++ showAmountDebug pa
showAmountPriceDebug (Just (UnitPrice pa))  = " @ "  ++ showAmountDebug pa